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Your Personal Link toAhe World of Information 


A Home Computer software e. 
is happening at Texas Instrument: 


explosions 


Now there are hundreds of additional new uses 


for the Texas Instruments TI-994 Home Computer- 
something for every member of your family. 


ware; Charles Mann and Asso 
and many more. 


Our library of application programs 
for the TI Home Computer is grow- 
ing rapidly. And that’s great for 
‘TI-99/4 owners, The more programs 
to choose from, the greater the value 
and utility of this remarkable home 
computer, 

Programs ave available in three 
different, easy-to-use formats — 
Solid State Software" Command 
Modules, diskette and cassettes — 

1 wide range of application areas: 


+ Youth Education, + Home Manage- 
ment and Personal Finance. * Enter- 
tainment, * And much more. 

Many independent software com- 
panies are also creating programs 
for the TI-99/4 Home Computer. 
Companies like 

and Company 

gram Design; 99/4 Ni al Users 
Group; Creative Computing; Micro- 
computers Corporation; Image 
Computer Produets; Instant Soft 


шев; 
Get а copy of our Application Pro- 
gram Directory. 

You can pick up a copy of our latest. 
catalog of T1-99/4 software today at 
your nearest Texas Instruments 
Home Computer de: 

To receive a copy by 

mail, call toll-free 
1-800-858-1565. In Т 

call 1-800-69: 


Fist Prize Winner 5 
ros М тш 
йш 
(Progra Housthod 
Second Price Winner 
Ey 
nne 0 Warns 
Meta, Nara 
Prom: Morc Se 
Fred Beker 

one, NN 


Congratulations to the 
winners of our Author 
Incentive Program 


We received many inno- 
vative and exciting ap- 
plication programs from 
individuals who entered 
our recent Author In- 
centive Program. Our 
thanks to all those who 
submitted entries. 
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Texas Instruments technology— bringing affordable electronics to your fingertips. 
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DIGITAL COMPUTER CASSETTES 
with LIBRARY ALBUM 


{ e High-Quality BASF Tape in a 5-Screw 
Cassette Housing for Data Integrity 


e Secure Storage & Quick Convenient Retrieval 
with Protective File Album 


ө 8 Special 50-Foot Cassettes - Ideal for 
Building Up Your 99'er Program Library 


ө Economical As It Is Functional 
Ww Only $9.95 each; or 3 for $27.00 


Add $2.00 shipping and handling for the first album; 75¢ for each 
additional album. Use the bind-in card in the back of the magazine 

T for your convenience in ordering. Telephone orders accepted if 
charged to credit cards. 
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THIS ISSUE'S COVER: 
The vast worldwide network of informa- 
tion resources, depicted in microcosm 
by the TMS9900 circuit board landmass, 
is catapulted into the home through the 
magical link of telephone and home 
computer. A generation of possibilities 
separates the son’s pensive gaze into the 
starscape and beyond... from that of 
his father’s preoccupation with the 
astounding reality of the present. The 
cover art is an original painting by 
Hayder Amir from a design by Gary 
Kaplan. 


99'er Magazine is published bimonthly by 
Emerald Valley Publishing Co., P.D. Box 5537. 
Eugene, OR 97405. The editorial office is lo- 
cated at 2715 Terrace View Drive, Eugene, 
OR 97405 (Tel. 503-485-8796), Subscription 
rates in U.S. and its possessions are $15 for 
one year, $28 for two years, and $39 for three 
years. In Canada and Mexico $18 for one year, 
$34 for two years, $48 for three years, Other 
foreign countries $25 for one year surface, 
$40 for one year air delivery. Single copy price 
in U.S. and its possessions is $2.95, and $3.50 
in Canada and Mexico. Foreign subscription 
payment should be in United States funds 
drawn on a U.S. bank. Application to mail at 
controlled circulation postage rates is pending 
at Eugene, OR 97401, POSTMASTER: Send 
address changes to 99'er Magazine, P.O. Box 
5537, Eugene, OR 97405, Subscribers should 
send all correspondence about subscriptions 
to above address, 


Address al! editorial correspondence to the 
Editor at 99'er Magazine, 2715 Terrace View 
Drive, Eugene, OR 97405. Unacceptable 
manuscripts wil! be returned if accompanied 
by sufficient first class postage and self- 
addressed envelope. Not responsible for lost 
manuscripts, photos, or program media. 
Opinions expressed by the authors are not 
necessarily those of 99'er Magazine. All mail 
directed to the “Letters to the Editor" column 
will be treated as unconditionally assigned for 
publication, copyright purposes, and use in 
any other publication or brochure, and are 
subject to 99'er Magazine's unrestricted right 
to edit and comment. 99'er Magazine assumes 
no liability for errors in articles or advertise- 
ments. Mention of products by trade name in 
editorial material or advertisements contained 
herein in no way constitutes endorsement of 
the product or products by 99'er Magazine or 
the publisher unless explicitly stated. 


Each separate contribution to this issue and 
the issue as a collective work Copyright@1981 
by Emerald Valley Publishing Co. All rights 
reserved. Where necessary, permission is 
granted by the copyright owner for libraries 
and others registered with the Copyright 
Clearance Center (CCC) to photocopy any 
article herein for the base fee of $1.00 per 
copy of the article or item plus 25 cents per 
page. Payment should be sent directiy to the 
CCC, 21 Congress Street, Salem, MA 01970. 
Copying done for other than personal or in- 
ternal reference use without the permission of 
Emerald Valley Publishing Co. is prohibited. 
Requests for special permission or bulk orders 
should be addressed to the publisher. 
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ON SCREEN 


s both an editor and a publisher 
Aes perhaps, somewhat of a 

mystic), | am well aware that a 
“theme” can't be forced on a particular 
issue of a magazine without the cohesive- 
ness and “flow” of the magazine taking 
a telling blow. Time and circumstance 
dictate successful themes. One either 
“happens” or it doesn’t. In this case, as 
you’ve undoubtedly noticed from the 
cover, we do indeed have a theme—the 
home computer as our personal link to 
the world of information resources. It is, 
however, both pleasing as well as a little 
surprising for me to admit that we didn’t 
select jt . . . it somehow “selected” us! 


Forgetting for a moment al! the other 
significant things you can do with your 
own computer, just having a computer 
to use solely as a data terminal is а 
powerful enough reason for buying one 

. as you'll soon find out in our lead 
article, /nformation Utilities and the 
Electronic Cottage. 

After you've read all about The 
Source and TEXNET in the article, 
Lawrence Riley will show you a profit- 
able way to put your microcomputer to 
work, as he examines a rather specialized 
information utility in The Small Inves- 
tor and the TI-99/4: A Look at the Dow 
Jones News Service. And be sure not to 
overlook our round-up of Electronic Bul- 
etin Boards that immediately follows. 

Later, if you should wonder about 
what other types of databases exist and 
ow to go about searching them—for 
your own professional needs, or even 
or the purpose of launching an informa- 
tion brokering career—look no further 
than p. 40's On-line Information Re- 
trieval, and learn how Boolean algebra 
works its wonderful magic to make in- 
ormation access as easy as А+В=С. 

But all of this talk about information 
services and methods of database search- 
ing brings up an interesting question: 
dow does this bundle of data pass 
through the telephone lines from one 
computer to another? Tom Berkey has 
the answer for you in Data Communica- 
tions and the T1-99/4, He will show you 
ow the bits, bytes, and baud get moved 
rom here to there . . . апа back again. 

If you've gotten through all the over- 
view and tutorial articles so far, you're 


July/August 1981 


99'er Magazine 


about due for a change of pace—perhaps 
a program. Weli then, still keeping in 
line with our theme, how about giving 
our Electronic Home Secretary a spin. 
It's a rather special home applications 
program centered around the use of the 
telephone. Let Dr. Subbaiah show you 
how to set up cassette or disk informa- 
tion files, and to have your computer 
dial the telephone and time your calls. 

For the “big news" of this issue, be 
sure to check out the center photo spread 
for our on-the-scene, ‘Windy City" re- 
port on 7/ at the Consumer Electronics 
Show, and a iook at the new TI-99/4A 
console that TI unveiled. The specula- 
tion is ended—temporarily . 

TI did, of course, display their new 
software at the Chicago show, but per- 
haps you can't wait . . . or maybe there's 
nothing available yet that does what 
that “neat little TRS-80 program" is 
supposed to do. If that's the case, let 
Fred Forster show you the ropes before 
you attempt that language conversion 
project. You'll save a lot of frustration. 

But if, however, converting or writ- 
ing your own programs does bring on a 
case of "programmer's headaches," 
RUN straight-away to Kelley’s Korner 
for some more super games in the tradi- 
tion of our last issue. 

After you've had fun and relaxed 
with Kelley, remember that there’s al- 
ways a time and place for Getting Down 
To Business. This time, George Struble 
will take you through the basics of eval- 
uating a software package and program- 
ming your micro to calculate effective 
interest rate and return-on-investment, 

As George's short program demon- 
strates, business software does usually 
require substantial amounts of data to 
input—the usual input device being the 
keyboard. Now, in a 99'er Review of 
the НІ PAD Digitizer you'll learn about 
a convenient alternative for more natural 
data entry. 

While we're on the subject of alterna- 
tives, Duff Kurland shows us an alterna- 
tive to the single-user, mini-disk TI-99/4 
system with An /ntroduction to -the 
Marinchip Systems M9900, This new 
family member is, of course, also TMS 
9900-based, but uses 8-inch drives, has a 
multi-user operating system available, 
and is compatible with the S-100 bus. 


By Gary M. Kaplan 
Editor & Publisher 


All in all, some versatile hardware and 
software for those of you needing a 
arger system. 

When we talk about a "new family 
member,” we are referring to its use of 
the TMS9900 CPU or a slightly differ- 
ent version of the chip with the same 
basic instruction set. The University 
Board's TMS9980A falls in this family, 
so we continue our coverage of the 
board with Bombs Away!—a war game 
rogram that also makes use of a com- 
patible TMS9918 Video Display Proc- 
essor board. All you Extended Basic 
sprite lovers should find the program list- 
ing informative, If you should, however, 
ave trouble understanding the accom- 
panying assembly listing for the joystick, 
be sure to sit in on Dennis Thurlow's 
continuing class on 7M59900 Machine 
& Assembly Language. 

Rounding out this July/August issue 
is our familiar “magazine within a mag- 
azine,” OnLoCAltion—for 99'ers inter- 
ested in using their computers for edu- 
cation. As seen from page 57's magazine 
cover, the 99'er Schools of Music, Engi- 
neering, and Typing are ready to help. 
But lest we concentrate solely on tradi- 
tional CAI (computer-assisted instruc- 
tion), we do have a couple of articles for 
the LOGO and Chess aficionados as well. 

And finally, for any schools that 
need to use multiple micros but can't 
afford duplicate peripherals, Kathleen 
Swigger will reveal the North Texas 
State University solution. 


l'd like to take this opportunity to 
congratulate Ralph Oliva, Alecia Helton 
and Diane Musha of Texas Instruments, 
as well as Niky and Susie Murphy, stu- 
dents at the Lamplighter School, for a 
fine performance on the Mike Douglas 
Show the week of July 6th. Eleven mil- 
lion TV viewers were treated to daily 
demonstrations of TI learning aids— 
including the Home Computer with TI 
LOGO on the last two days. On the 
last day, the show's guests, Captain and 
Tennille, were treated to a computerized 
rendition of their hit song, Love Will 
Keep Us Together. And as the show 
ended, Toni Tenille sang along with the 
TI-99/4 computer! 


Until next issue—Have fun reading, 
learning and RUNing. @ 


Our MX-80 was a pretty tough act to follow. I mean, 
how do you top the best-selling printer in the world? 

Frankly, it wasn’t easy. But the results of all our 
sleepless nights will knock your socks off. 

The MX-100 is a printer that must be seen to be be- 
lieved. For starters, we built in unmatched correspon- 
dence quality printing, and an ultra-high resolution bit 
image graphics capability. Then we added the ability to 
print up to 233 columns of information on 15” wide 
paper to give you the most incredible spread sheets 
you're ever likely to see. Finally, we topped it all off 
with both a satin-smooth friction feed platen and fully 
adjustable, removable tractors. And the list of standard 
features goes on and on and on. 

Needless to say, the specs on this machine — and 
especially at under $1000 — are practically unbelievable. 
But there’s something about the MX-100 that goes far 


3415 Kashiwa Street * Torrance, 


See the whole incredible Epson MX Ser 


Not just better. Bigger. 


beyond just the specs; something about the way it all 
comes together, the attention to detail, the fit, the feel. 
Mere words fail us. But when you see an MX-100, you'll 
know what we mean. 

Allin all, the MX-100 is the most remarkable printer 
we've ever built. Which creates rather a large prob- 
lem for those of us at 
Epson. 

How are we going to 
top this? 


Your next printer. 


EPSON 


EPSON AMERICA, INC. 


California 90505 • (213) 539-9140 


of printers at your Authorized Epson Dealer. 


. we find more and more companies that 
can be described . . . as nothing but ‘people 
huddled around a computer.' Put the computer 
in people's homes, and they no longer need to 
huddle,” 
—The Third Wave 

By Alvin Toffler 


presents a powerful argument that “. . . our big- 
gest factories and office towers may, within our 
lifetime, stand half empty . . . this is precisely what 
the new mode of production makes possible: a return 
to cottage industry on a newer, higher, electronic ba- 
sis, and with it a new emphasis on the home as the 
center of socicty.’’ Toffler goes on to single out many 
powerful socio-economic forces that are presently 
fueling this transition and points to the software pro- 
duction industry which has already set an early exam- 
ple as the fastest growing cottage industry of the 
1980s. 
Within the jast year and a half, the microcomputer 
community has been witnessing the unfolding of an 
extraordinary event. | say “extraordinary” not because 
of what has already happened, but rather, for what it 
portends for the future. What is this event, and what 
great significance does it hold? Quite simply, the event 
has been the birth and maturation of “information 
utilities"—a significant event because of their awesome 
potential to speed up Toffler's timetable and change 
the way most of us live and work within this current 
decade! 
There's certainly nothing mysterious about utilities. 
All of us are already familiar with telephone, electric, 
water and gas utilities. These are necessary and valua- 
ble resources delivered to and consumed in the home. 
If we now add information to this list, we create an 
“information utility"—a service that brings informa- 
tion to a place where the general public can access it 
and put it to use . . . and where the cost of packaging 
and delivery is shared by the consuming public. And 
what better, more convenient place is there for the 
general public to consume this information than in 
the home—the forthcoming "electronic cottage.” 


| n his recent book, The Third Wave, Alvin Toffler 


The New Timesharing 


Timesharing, the foundation of all information 
utilities, is certainly not new. It was originally devel- 
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INFORIVIATION 


UTILITIES 


oped to serve the needs of business by providing com- 
panies with access to computer power without them 
having to buy expensive data processing equipment. 
Custom programming and technical assistance were 
available at extra cost to those who couldn't use the 
“canned programs." 

What these information utilities have done is add a 
new wrinkle to the traditional timesharing concept. 
Using the famous “baking soda technique"—whereby 
a producer of this unglamorous age-old product con- 
tinually dreams up and advertises new uses for it— 
they have repackaged timesharing to make it palata- 
ble to a much greater potential market. But lest you 
jump to the wrong conclusion, | should point out 
that these utilities are not simply pushing an old ser- 
vice to a new market. Rather, what we really have 
here is the creation of an entirely new dimension to 


AND THE 


timesharing—an attempt to satisfy a mass audience 
with extremely diverse needs and wants... and do it 
at an affordable price. 


Information Services for the Masses 


To provide you with some appreciation for the 
great diversity of presently available information ser- 
vices, let's take a brief look at one of the largest, 
fastest growing utilities, The Source (a service mark 
of Source Telecomputing Corporation, a subsidiary of 
The Reader's Digest Association, Inc.). At present, 
The Source offers over 1,200 services in arcas such as: 


1) computer-based message services 
) proprietary databases 
) business and professional applications packages 
) personal and corporate services r 

5) consumer purchasing 
) 

) 
) 


entertainment 

education 

“classical” timesharing 
e 


ШП 


UA ein wu el 


The E.Y.A.W.T.K.A.T.T.LP.C.B.D.K.W.T.A* Questionnaire 


PART 1: Е А Filling іп and mailing this questionnaire as soon as possible will 
T 1: THE TI-09/4 & TI-99/4A CONSOLES «oj help us get you the answers. Please participate. Thank you. 


(a) What would you like to know about the hardware? 


PART 4: MISCELLANEOUS 
(a) What would you like to know that wasn't covered in Parts 1-3? 


(b) About the internal software & programming languages? 


(b) Why did you buy the Texas Instruments computer? 


(c) What changes & new languages would you like to see? (Please include| 
prices you'd expect new consoles & programming languages to cost.) 


{с} What hardware/software (both TI & compatible non-T!) have you 
already purchased? (Exclude owner-written user-group programs.) 


PART 2: THE PERIPHERALS 


(a) What would you like to know about the operation, control, 
& interfacing of existing peripherals? 


(d) What additional purchases do you expect to make? 


(b) What would you like to see forthcoming? (Please include 
prices you expect these to cost.) 


(е) How is your computer used? Business? Education? Games? 
Other? Please explain. 


PART 3: THE SOFTWARE 
(a) What would you like to know about existing software (both 
TI & compatible non-TI)? 


(f) What is your occupation? 


(g) What articles would you like to see in 99'er Magazine? 


(b) What would you like to see forthcoming? 
(Please include prices you'd expect the packages to cost.) 


(h) Have you already found us at least one more subscriber? 
If not, please do so. Thank you. 


жр verything You Always Wanted To Know About The Texas Instruments Personal Computer But Didn't Know Who To Ask 
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All these services enter a subscriber's home or business 
through existing telephone lines (using the packet-switching 
networks of Telenet and Tymnet). A local toll-free 800 
number is available in over 300 U. S. cities for accessing 
The Source. A subscriber types in (on a computer terminal 
connected to the telephone line, or a self-contained micro- 
computer with appropriate software to emulate a terminal) 
his or her private 1D account number, and then chooses 
from a menu of services. Since subscribers can command 
the “host” computer in plain English (in a somewhat abbre- 
viated form), very little instruction is necessary to do mean- 
ingful things—an extremely important attribute of any 
information utility. 

Although an information utility such as The Source 
hopes, in the not-too-distant future, to be able to feed mil- 
lions of inexpensive computer terminals in U. S, households, 
its present subscriber base of approximately 10,000 is 
drawn from the business community and a small segment of 
the vast consumer community—the segment which present- 
ly owns microcomputers. 

It’s not surprising why businesses of all types are attracted 
to very inexpensive services such as electronic mail, travel 
arrangements, applications software packages, programming 
access to mainframes, and business/industry news. It does, 
however, take some stronger incentives to lure the consumer 
segment of the microcomputer community—the present-day 
pioneers who purchased their micros for home use. It's to 
this group that information utilities like The Source must 
ultimately cater if they hope to eventually reach the econo- 
my of distribution and substantial return-on-investment 
that are possible in a mass market. 

To this end, consumers with microcomputers are present- 
ly being wooed with a rapidly expanding array of personal 
services (such as bookkeeping, correspondence, travel ar- 
rangements, and keeping track of investments), educational 
programs, home economics assistance, plus activities and 
information that the who/e family can use—especially games, 
movie and product reviews, news, and sports reports. 


The TEXNET Turn-On 


If having the services and activities of The Source in 
your home isn't exciting enough for you, how about having 
it together with the following package of special enhance- 
ments: color graphics and animation, music and sound ef- 
fects, a software exchange with hundreds of free programs, 
plus state-of-the-art synthetic speech—with a// screen text 
actually “spoken” to you! No, all this isn't just a “wouldn’t- 
it-be-great-if" speculation of things to come, but rather, 
embellishments to the basic Source menu that will be avail- 
able very shortly. 

The special services and enhancements I’ve been describ- 
ing are available to users of the Texas Instruments T1-99/4 
and TI-99/4A microcomputers, and come under the 
TEXNET (a service mark of Texas Instruments, Inc.) 
umbrella. Besides the microcomputer, the only additional 
items that are needed to take advantage of a// of the special 
TEXNET features are a plug-in RS232 Interface and mo- 
dem (for establishing a compatible telephone connection), 
a plug-in Terminal Emulator II Command Module (the 
software for the microcomputer), and the plug-in Solid 
State Speech Synthesizer—the Texas Instruments peripheral 
that "voices" the synthetic speech. [See 99'er Magazine, 
May/June 1981, p. 30]. The synthesizer won't be necessary 
if speech capability isn't desired. 

Just how, exactly, are TEXNET and The Source related? 
According to Craig W. Vaughan (President, Software Sor- 
cery, Inc.), a systems support consultant to Source Tele- 
computing Corporation and Texas Instruments, TEXNET 
appears to totally encompass The Source. That is to say, 


TEXNET subscribers have access to everything Source 
subscribers do, p/us additional special services that require 
the Texas Instruments Home Computer for access and use. 
Graphically, it would appear like this, 
with the outer ringof TEXNET includ- 
ing everything within The Source's in- 
ner ring, and expanding its own outer 


ring of special services over time. This À 
is only an appearance, however, as one 
Vaughan pointed out: "In reality, 


TEXNET users will berunninga shell program... TEXNET 
will eventually be a collection of programs running on The 
Source system." 

Services on TEXNET fall into two major groups: (1) 
directory or lookup textual information, and (2) interac- 
tive or transfer services, In this first group there will be a 
product and technical newsletter (ТІ News), TI Software 
Directory, T! User Groups, TI Service Centers, and ТІ Pho- 
netic Dictionary (helpful when programming with text-to- 
speech). The second group of services is really what TEXNET 
is all about. First, there are the transfer services. Sophisti- 
cated error-checking software in the Terminal Emulator I] 
Command Module will permit any of hundreds of user pro- 
grams from the TI Software Exchange to be downloaded 
correctly into another user's system, Eventually, we can ex- 
pect to see on TEXNET the capability for direct uploading 
and downloading between users. The TI Graphics Library 
and TI Music & Sound Library will work the same way: A 
TEXNET subscriber will be able to download the color 
graphics, musical scores, and sound effects into his own 
system for later use in his own programs. 

The jnteractive services on TEXNET are really speech 
enhancements of services already available on The Source. 
For example, the electronic mail service—probably the most 
highly used service, and reason enough for many to be or 
become Source subscribers—is made even more intriguing 
when your mail is “read” to you by your machine's electro- 
nic voice. And if "electronic voice mail" intrigues you, wait 
till you experience ТІ Voice Chat: TEXNET users will be 
able to participate in “spoken” interactive communication, 
CB-style. Well almost . . . What actually happens is that one 
user types in something, and the words get converted back 
to synthetic speech on the other end; the typed-in reply 
gets sent back, and then also gets converted to speech. So 
what we actually wind up with is a real-time verbal conver- 
sation between two speech synthesizers! 


is it affordable? What does all this cost? You be the 
judge: There's an initial one-time subscription fee of $100 
for The Source/TEXNET registration, and usage fees of 
$2.75/hour (midnight to 7 a.m.), $4.25/hour (on weekends 
and on evenings from 6 p.m. to midnight), and $15/hour 
(weekdays from 7 a.m. to 6 p.m.) for prime-time business 
usage. 


There's one short paragraph in the latest Source brochure 
that perfectly sums up what's presently happening in the 
world of information utilities: 


66 This brochure is obsolete. 
By the time you read this brochure, new 
information and communication services 
will have been added to The Source. Old 
data bases will have been updated, and 
streamlined "'userfriendly"' access proce- 
dures introduced, 99 


Without a doubt, it’s an exciting time to be living and learn- 
ing along the new information frontier. aq 
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AN INTRODUCTION TO 
THE MARINCHIP 


‘The Marinchip System M9900 CPU Board, 
Notice the large TMS9900 16-bit microprocessor in the center. 


hat? Another 16-bit TMS9900- 
based personal computer sys- 
tem? You mean the TI-99/4 


actually has company out there in the 
predominently 8:bit micro world — a 
Close relative who shares the same 
powerful instruction set and archi- 
tecture in a landscape infested with the 
likes of Z80s, 6800s, and 650257 
Rejoice 99'ers. . . you are not alone. 
Welcome your California cousin, the 
Marinchip Systems M9900, Despite Iit 


tle publicity since its introduction 
in the spring of 1978, the M9900 
hhas attracted many enthusiastic users. 


Marinchip's system is built around the 


16-bit Texas Instruments TMS9900 
microprocessor — the same chip used in 
the 7199/4. Beyond that, however, the 


two computers differ dramatically. This 


article will serve as an introduction. 
to the M9900 hardware and soft 
ware, Future articles will explore 


specific programs and applications in 
greater depth. 

We at 99r Magazine would like 
to take this opportunity to welcome 
M9900 users into our "99-er Family, 
and hope that you'll actively contribute 


About the Author 

"Duff Kurland is a senior systems pro- 
grammer for à computer service bureau, and 
has had eleven years of experience on large 
‘Sperry Univac "computers, Having chosen 
computers as his hobby as well, Duff has 
‘assisted in the development of some of the 
Marinchip Systems software. 
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by submitting your tips, suggestions, 
and articles to us, [And as TMS9900 
assembly language programming be. 
comes readily available to TI-99/4 users 
with a soon-to-be-released assembler 
Command Module, there will be more in 
common, and more resource sharing 
between ‘the two user communities 
Ed] 


The $100 Bus 


Unlike the portable, self-contained 
1-99/4, the M9900 system consists of 
several circuit boards which plug into 
slots in an S100 mainframe, А video 
terminal is usually employed as the 
system console, and since Marinchip's. 
software relies heavily on disk storage, а 
pair of 8-inch floppy disk drives rounds 
ош the basic system. 

The S100 bus was the first wide- 
ly accepted microcomputer bus stan- 


dard, and sports a broad range of 
compatible circuit boards from a 
multitude of vendors. The M9900 


thus offers the 16bit power of the 
TMS9900 CPU chip, along with the 
flexibility of the S100 bus — a combi- 
nation that's hard to beat. 

Flexibility? Attach a letterquality 
printer, and you've got a word process- 
ing system, Connect a high-speed dot 
matrix printer, and you've got a small 
business system. Or connect a digitizer 


SYSTEMS M9900 


By Duff Kurland 


and a color graphics display, and you've 
got an electronic or architectural design 
system. Or perhaps you're into com- 
puter music, speech synthesis, software 
development; household security, en- 
vironmental Control, or all of the above, 
It's quite conceivable for one S100. 
system 10 be equipped to do aff these 
thingsand more, 

With the ТЬ99/4 system, expansion 
is presently limited to 48K RAM, 
three 90K minidisk drives, and two. 
RS-232 ports. The M9900 system, how. 
ever, has oodles of expansion room, 
You can have additional banks of 64K. 
RAM for a multi-user system, have sev- 
eral serial peripherals connected at the 

me time, and even connect a multi- 
megabyte hard disk. But. expandability 
isn’t the only difference, Although both 
are based on the ТМ59900 chip, the 
11-99/4 and the M9900 have vastly 
different operating systems: Programs 
designed for one will not run on the. 
other unless the differences in system: 
calls and disk storage formats are taken 
into consideration, and conversion util- 
ities provided. 


Hardware 


Marinchip Systems manufactures the 
boards which comprise the heart of the 
M9900 system, and recommends the 
products of various other vendors for 
other functions. A typical M9900 5) 
tem includes the following Marin- 
chip hardware: 


one M9900 CPU board 
* one PROM/RAM board 
* one or more 64K RAM boards 
* QUAD 510 board (optional) 


These boards are assembled, tested, 
and burned in at the factory, and 
are supplied with "Theory of Op. 
eration" manuals. Also, Marinchip is 
one of the few manufacturers to provide. 
schematics for their hardware products, 


To complete 
need: 


а basic system you'll 


* a video or printer terminal 
* two inch floppy disk drives 
* a disk controller board 

= эп $100 mainframe 

= a printer (optional) 


ШЇ 


The author's system. The printer is not shown. 


All items are available through Marin. 
chip Systems, or can be purchased di 
rectly from ‘other manufacturers or 
dealers, Let's take а quick look at 
each of the Marinchip circuit boards, 


M9900 CPU Board 


The M9900 CPU board connects the 
TMS9900 processor chip to the $100 
bus, providing all the proper bus control 
signals, Circuitry to support Marinchip's 
16-bit memory boards as well as most 


Abit 5100 memory boards is found 
here, as is the memory mapping logic 
necessary io support $100-style 1/0. 
(The 1K area from F000 to F3FF is 


used for this purpose.) 


64K RAM Board 


As mentioned above, the CPU 
board supports 8-bit and "16-bit mem. 


огу, If you already have an $100-based 
system, you cam probably use your 
existing memory boards with the 
M9900. Since most memory accesses 


made by the TMS9900 chip itself are 
for 16bit words, logic on the CPU 
board will automatically make two 
accesses to adjacent bytes in order to 
read or write the desired 16-bit word 
Use of l6bit memory such as the 
Marinchip 64K RAM board, however 
will avoid the need for this double 
memory access, and enable the system 
to run at least twice as fast 

The 64K RAM board provides 
64K bytes organized as 32K 16-bit 
words. DIP switches permit any combi 
nation of the 16 4K blocks of memory 
to be disabled, to prevent conflicts with 
other memories or memory-mapped I/O 
devices. A bank switching capabil- 
ity is provided, permitting several 
64K RAM boards to share the same 
addressing space. This technique is used 
їп multi-user environments, where each 
user may be assigned his own 64K 
address space. 


PROM/RAM Board. 


Marinchip's PROM/RAM board com 
tains IK bytes of 16-bit PROM (expand. 
able to 32K), one serial 1/0 port, and a 
realtime clock, The 16bit RAM may be 
used for the workspace registers, speed- 
ing up register access if your system 
has B-bit memory boards. The PROM: 
contain the disk boot routine, and a 
debug monitor capable of dumping 

The serial 


memory in several formats. 


VO port may be used for the console 
terminal, and the real-time clock is used 
by the NOS/MT multiuser operating 
system. 


The debug monitor PROMs normally 
use the top 2K of the addressing range 
(F800 through FFFF), while the 16bit 
RAM resides at F400 - F7FF 


QUAD SIO Board 


Interfacing additio 
with Marinchip's recent hardware 

е QUAD SIO board. As its 
implies, this board provides four 


al. peripherals is 


offering, 


1/0 ports, each of which may 
d to connect a pri 
onal terminal. 


Free Software 


Marinchip Systems supplies a com 
plete software package with the pur 
chase (for $700) of their M9900 CPU. 
board. This package includes the Disk 
Executive operating system, BASIC, an 
assembler, linker, lineoriented text 
editor, dacument formatter, and debug 
monitor, You also receive a host of 
utility programs. Much of the soft- 
ware is designed to operate with as 
little as 32K bytes of RAM in the 
system, but 64K is recommended. 


Disk Executive 


The Marinchip Disk Executive pro- 
Vides a simple floppy disk file system. 
File names and maximum size are chosen 
by the user, and the operating system 
keeps track of where the files are lo. 
cated on disk, All disk 1/0 is file relative, 
and the system detects any attempts to 
read or write outside file boundaries, 
Inputfoutput operations are hard. 
ware independent. All 1/0 devices are 
treated simply as files with special 
names. If you design a program to write 
to а disk file, you can direct it to write 
to а hardware device (such as a printer) 
without any program modification, 


The operating system performs all 
memory allocation for user programs in 
an address space organized as shown in 


Figure 2. y expand to fill 
all available memory automatically, and 


Proprams m 
need not be regenerated when a hard. 
ware or software change results in a dif: 
ferent user memory space. 

Input typed on the system's console 
terminal is assembled in a buffer that is 
internal to the operating system, and de 
livered to the user program only after 
the carriage return has been entered. 
The system provides backspace c 
bility for error correction, and special 
control keys for deleting a whole word 
at a time and for retyping the current 


A peek inside the mainframe. The first board is the M9900 CPU, followed by 
two 64K RAM boards and the PROM/RAM board. 
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input line if you've become confused. 
Inclusion of these important features in 
the operating system means that they 
need not be implemented in each and 
every program; and presents a con- 


sistent personality to the terminal user. 
А special system request permits a user 
program to take complete control of 


the console terminal in cases where 
character-by-character input is required, 
Programs running under the Disk Ex- 
ecutive may issue system calls to request. 
various services, or may call upon float- 
ing point arithmetic, output editing, 
buffer pool control, or linked list sub. 
routines built into the system. These 
features make the Marinchip M9900 sys- 
tem one of the finest systems I've ever 
seen for the software developer, Disk 
Executive system calls are upward-com- 
patible with the multi-user NOS/MT op- 
erating system, so that your investment 
in M9900 programs is not wasted if you 
upgrade to the fancier operating system. 
The Disk Executive also provides an 
easy way to add new system commands. 
The set of system commands which you 
enter from the console terminal can be 
asily expanded by writing a program 
and giving it the desired command name 
‘ou then can execute the new system 
command by simply typing the name of 
the file in which the program resides, 


BASIC 


The version of BASIC included in the 
CPU board purchase price is very similar 
to Microsoft BASIC, It offers two- 
character variable names, IF-THEN- 
ELSE, multiplestatement lines, single 
line functions, disk 1/0 capabilities, and 
a statement trace feature, 

If you notice a program error while 
running a program, you may interrupt 
its execution and enter command mode. 


Kei SN p Systeme” 


кї e» Мв BAKO yt. 


iny PRINT statement you type will be 
executed immediately, so that you may 
examine the contents of program vari- 
ables. This feature may also be used to 
provide a simple “desk calculator.” You 
may list or modify portions of the pro: 
gram, change variable contents, and con: 
tinue where you left off. 


Assembler and Linker 


If you're like me, and enjoy develop: 
ing system utility programs or just get 
ting down to the bare nuts and bolts, an 
assembler and 


ier will be essent 
tools. Well, these are also included free 
with the M9900 CPU. The assembler 
produces relocatable object code, and 
the linker can pull several relocatables 
together to make an executable program, 
This allows you to develop a large, com: 
plex program in neat byte-sized chunks, 

The assembler offers a few extra fea. 
tures worth noting. IF-ELSE-ENDF di- 
rectives allow you to selectively assemble 


The M9900 16-bit 64K RAM Memory Board 


attached to program labels, A COPY di 
rective lets you place common defini 
tions in a disk file, and easily include 
them in any programs that need them. 
Also, the M9900 assembler recognizes 
several special instructions used by the 
Marinchip system. For instance, 
tem call feature is implemented using 
the TMS9900's extended operation fa 
cility (XOP). But, rather than saying, 
ХОР 1” whenever you want the system 
to do something for you, you may say 
"JSYS" (meaning “jump to system: 


Text Editor and 
Document Formatter 


The line-oriented text editor (EDIT), 
and the document formatting pro- 
gram (WORD) comprise the final major 


elements of the basic software package 
included with the M9900 CPU board. 
Various file listers and copiers, file di- 


rectory routines, the debug monitor, 
and diagnostic utilities round out the 


While the program is thus suspended, portions of a program, based on values package. 
0000 Standard workspace register area 
VHRR titre HN 0100 User address area begins here | 
M9900 CPU board A | 
beasts ier тры ---- Шкег address area ends here, and 
PAE POC ILUNA sia E operating system address arca begins. 
Waal Broa Sse 0 board i The exact address is dependent upon the | | 
nla tne CO CE ETA А hardware and software configuration. 
brads tance енн үт s Оп my system, it's around D100, leaving | 4 
i Ин Д about 52K bytes for user programs. | 
Hazeltine 1510 video terminal х | 
2 GSI 110-8 8-inch floppy disk drives. EFFF Епа of operating system address area 
NEC Spinwriter lettér-quality printer FOOO  1Kinput/output memory map area 
F400 — PROM/RAM board RAM area (1K) 
Wadic 1200-bauid modem F800 ^ PROM/RAM board PROM area (2k) 
Figure 1 - The Author's System Components Figure 2 - Disc Executive Memory Layout | 
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SE TE EI A 


REPORTS LOOK EVEN BETTER! 


ооооооосоооооооеое в 
Dee een 


Aud You Thought You 
Didn't Fave A Choice 


SOFTWARE DEVELOPERS 


YOU SHOULD FIND OUT WHY SO MANY SYSTEMS FROM COAST-TO-COAST 
RELY ON CHECKS TO-GO FOR FORMS SUPPORT. + 


* SELECT FROM OVER 200 IN STOCK ITEMS. INCLUDES CHECKS, 
STATEMENTS, INVOICES, PURCHASE ORDERS 


* ATTRACTIVE, PROFESSIONAL QUALITY FORMS THAT MAKE YOUR 


* UNSURPASSED DEALER AND USER SUPPORT. 


* YOUR NAME WILL APPEAR IN OUR ADS 


CALL TOLL FREE NOW AND ASK FOR MARIANN AMBROSE OR KEN BAKER 


CALL NOW TOLL FREE 
For free packets for the following systems: 


r 


snis j 
|* Systems Plus * TCS * Structured Systems Group • 

* Vector * Peachtree * Radio Shack • Osborne * 

| * Alpha Micro * Durango • Warex • Cado * 

N: 


NATIONWIDE 
800-854-2750 


* IN CALIFORNIA 
800-552-8817 


Offer Your Customers The Mlernatiue They Deserve 


EDIT allows you to enter a program 
or save data in a disk file, or to correct, 
modify, or simply look at the text of an 
existing disk file. It is “line-oriented” in 
that the. editor “looks” at one line of 
the file at a time, You can tell EDIT to 
move up or down in the file by using 
line numbers, or by searching for a 
particular string of characters. Once 
positioned at a line, you may use several 
commands to change the text on that 
line (or from that line for a few follow- 
ing lines, or for the rest of the file). 

EDIT's most outstanding feature is 
its file paging capability. You may safely 
edit a file whose text is much too lengthy 


to fit in memory all at once: EDIT will 
page portions of the file out to tempor- 
ary disk files, and will automatically 
bring them back into memory when 
needed. 

- WORD, the document formatter, 
reads text files from: disk, formats the 
text as directed by user commands in- 
serted in the text, and writes the for- 
matted version to a disk file or printer. 
Facilities are provided to handle form 
letter preparation, program documen- 
tation, and many other word processing 
chores. You control the formatting par- 
ameters by. using numeric and string 
variables, macros, and library files. 


| often use WORD to document the 
software I’ve written. Its automatic page 
and section numbering, table of contents 
generation, and heading/footing macro 
features make documentation a simple — 
even enjoyable — process. 


File Format Commonality 


It is important to note that most of 
the M9900 software was designed and 
implemented by one person, and that 
all the programs read and write text files 
compatibly with one another. Thus, a 
BASIC program could write a text file 
which is later edited using EDIT, then 
processed by WORD and written to a 
printer. The very article you are reading 
was written using the WINDOW screen 
editor. Its spelling was then checked 
using SPELL, and then was processed 
by WORD to produce the printed 
manuscript, 

Text file compatibility seems like a 
simple enough idea, but don't take it for 
granted! There are numerous systems on 
the market whose Pascals, BASICs, and 
word processors all have different file 
formats. 


Additional Software 


The free software package described 
above is all you need to do software de- 
velopment in-assembly language, simple 
BASIC, or to do word processing. How- 
ever, Marinchip Systems also sells addi- 
tional language compilers, operating sys- 
tems, business packages, and other 
"application" programs. 

An Extended Commercial BASIC 
provides all the features of the standard 
BASIC, plus PRINT USING, greater 
floating point precision, a program 
CHAIN capability, and random-access 
disk 1/0, 

Marinchip's Pascal is an implementa- 
tion of Per Brinch Hansen's Sequential 
Pascal, and has no connection whatso- 
ever with UCSD Pascal. All the standard 
structured programming and data struc- 
ture definition.capabilities are provided, 
but the 1/0 is nonstandard. The com- 
piler makes seven passes over the pro- 
gram, and produces pseudo-code. Se- 
quential Pascal is well suited to large 
system development: the compiler itself 
is written in Sequential Pascal, yet can 
be compiled without difficulty in a 64K 
M9900 system! Each program, however, 
must include a “prefix” defining the 
system interface. If you need formatted 
output, you must also provide a set of 
output editing procedures. For these 
reasons, as well as the fact that the 
pseudo-code must be interpreted at run 
time, you may find QBASIC more 
suitable for program development. 

QBASIC is.a language compiler 
which was actually written by an M9900 
user. It is a compiler which accepts pro- 
grams written in CBASIC-2 (A trade- 
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SAVE BIG 
on TI-99/4 


Great Savings 
on All TI-99/4 
Products & Accessories 


Console & Peripherals 


TI-99/4A 

10” Color Monitor 

Disk Controller 

Disk Memory Drive 
Speech Synthesizer 
RS232 Interface 
Telephone Modem 

RF Modulator 

32K Memory Expansion 
Solid State Printer 


$379.95 
329.95 
229.95 
369.95 
114.95 
169.95 
169.95 
39.95 
289.95 
299.95 


Accessories 


Joysticks (pair) 
Dual Cassette Cable 


28.95 
12.95 


Command Modules 


Extended BASIC 

TI LOGO (September) 

Terminal Emulator H 

Speech Editor 

Household Budget 
Management 

Personal Record Keeping 

Video Chess 

Football 

Hunt the Wumpus 

The Attack 


Diskettes 

Mailing List 

Teach Yourself BASIC 
TI-TREK 


76.95 
Call 

39.95 
36.95 
34.95 


39.95 
54.95 
24.95 
21.95 
34.95 


54.95 
29.95 
12,95 


Call for Prices on other 
Command Modules, Cassettes 
& Diskettes 


For faster delivery 
use cashiers check or money order. 


Add shipping : 

1% of your order ($3.00 minimum). 
East of Mississippi River add $1.50; 
California residents add 6%. 
Subject to availability. 

VISA & MC accepted. 


Order Toll Free 


(outside California) 


800-421-5188 
Information Line (213) 633-3262 


TAMS 
14932 Garfield Ave. 
Paramount, CA 90723 
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mark of Compiler Systems) and pro- 
duces actual TMS9900 machine code. 
The resulting program runs much faster 
than any interpreted BASIC or Pascal 
program.. Many of the recent Marinchip 
utility programs, such as WINDOW and 
SPELL, were written in QBASIC. 

Just in case you’re not familiar with 
CBASIC-2, its major attributes are long 
variable names, structured WHILE- 
WEND constructs, formatted output 
(PRINT USING), and the nearly total 
elimination of BASIC's annoying line 
numbers. QBASIC supports separate 
compilation of program segments, ac- 
cess to assembly language routines by 
simply LINKing them in, and several 
extensions to the CBASIC-2 language. 

Marinchip offers a second text editor 
called WINDOW. This is a screen-oriented 
editor which turns your terminal into 
a “window” looking into the text file 
being edited. You can move the window 
around in the file vertically (or even 
horizontally, if the file has lines longer 
than the width of your terminal's screen). 

Control characters (or function keys, 
if available on your terminal) are used 
to move the cursor around on the screen 
and perform the desired editing tasks. A 
single keystroke puts WINDOW into a 
special command mode, allowing you to 
set various modes or request more com- 
plicated functions such as moving a 
block of text from one place to another. 
Like EDIT, WINDOW is capable of edit- 
ing a file whose text far exceeds the 
amount of user memory. 

l'm a horrible typist. Maybe you 
don't spel so gud. Both of us can bene- 
fit from Marinchip's SPELL program, 
SPELL looks up each word of a docu- 
ment in its dictionary, and reports any 
word that it hasn't heard of. Once you've 
weeded out the obvious abbreviations 
and acronyms, the remaining words are 
probably spelling or typing errors. Utility 
programs are provided to let you add 
new words to the dictionary. 

A Multi-Tasking Network Operating 
System (NOS/MT) is offered as an al- 
ternative to the Disk Executive. This 
UNIX-like system can support several 
users on the same mainframe. Each user 
has his own terminal and his own 
memory area (up to 60K each), but all 
users share the same CPU, printer, 
disks, and other hardware. To add an- 
other user to the system, the only hard- 
ware that’s needed is another terminal, 
an 1/0 port for it, and, perhaps, another 
memory board. A system generation 
procedure must be followed to custo- 
mize the system for your particular 
hardware and software needs. 

NOS/MT provides all the features of 
the simpler Disk Executive, plus print 
output spooling, disk file simulation in 
memory, background batch capability, 
dynamic file space allocation up to 4 
billion bytes, directory files (hier- 
archical directory), hard disk drive sup- 


port, a system clock, and numerous ad- 
ditional features. 

If you're looking for off-the-shelf 
business software to run on the M9900, 
you're in luck. The folks at Marinchip 
have converted the well-known Osborne 
commercial packages (General Ledger, 
Accounts Payable and Receivable, and 
Payroll) to QBASIC. These programs are 
usable singly or as an integrated system. 
Additionally, there's a computer-aided 
drafting package called INTERACT, a 
terminal simulation program for com- 
municating with a remote computer 
system, and some more exotic languages 
— FORTH and META - for aficionados 
of threaded structure and stack oper- 
ations. 

In future articles, we'll take an in- 
depth look at some of this software. 


A Mini Editorial 


Now that 99'er Magazine is bringing 
together all formerly isolated TMS9900 
family members, we would hope to see 
hardware and software producers adapt- 
ing their products for these additional re- 
lated markets, The software from Marin- 


chip systems is a case in point: If TI-99/4 
users, for example, would like to see an 
extremely fast compiled BASIC (e.g., 
Q-BASIC) available on their fully-con- 
figured TI system, the folks at Marinchip 
should be made aware of this by the in- 
terested users—Ed. 


Business & 
Professional 
Software 


File Management System 

300 records per disk, full upper 
and lower case, user-defined fields 
& printed formats, RAM sort 
(Shell-Hibbard), multi-key sub-file 
selection. $60 


Statistics Package 

Create data files & selective 
sub-files. Generate descriptive 
statistics, parametric & non-para- 
metric tests, linear regressions, & 
curve fitting. Tabular & graphic 
data output. $40 


For Order & Inquiries Contact: 


Frederick Marin 


Small Business/Professional 
Computer Services 


87 Mayfair Road 
Warwick, RI 02888 
Tel. (401) 461-6308 


MORE GOOD NEWS 


FROM 


MARINGHIP 


SYSTEMS 


OFF-THE-SHELF 16-BIT HARDWARE AND SOFTWARE 


16-BIT HARDWARE 

Why wait when you want a state of the 
art 16-bit microcomputer? At Marinchip 
Systems, we believe in being respon- 
sive to your needs. So when you want 

a system that delivers, call Marinchip 
Systems, because we have it in stock. 


* §-100 CPU board 

* TMS9900 microprocessor from 
Texas Instruments 

* Support for 8-bit and 16-bit memories 
and peripherals 

* Software included with CPU 

* CPU price - $700. 

* 64K byte memory with 16-bit access, 
bank-select for multi-user systems - 
$1050. 

* Quad SIO board with four program- 
mable asynchronous or sychronous 
ports - $350. 

* Complete systems (except CRT) with 
1 Megabyte floppy disc storage - 
$5500. 

* Hard disc available. 


CBASIC is a trademark of Compiler Systems 


Marinchip Systems 


16-BIT SOFTWARE 

Because we're a total computer 
company, we also carry our series of 
the most complete and flexible software 
systems available anywhere. So when 
you want the software that delivers, 
call Marinchip Systems, because we 
have it in stock. 


* Single-user Disc Executive - free 
with CPU 

* BASIC interpreter, relocatable 
assembler and linker, debug monitor, 
utilities - free with CPU 

* EDIT: Context editor with the same 
features found on UNIVAC, CDC, 
DEC systems - free with CPU 

* WORD: Document formatter with 
justification, page numbers, user- 
Specified headings and footings, 
macro expansion, copy from disc, 
and more - free with CPU 

* WINDOW: Simplest, most powerful 
screen editor you can buy - $250. 

* Extended Commercial BASIC: inter- 
preter with 16-digit precision, 


Computer Power and Human Reason 
16 St. Jude Road 


Print Using, random access disc files 
- $120. 

PASCAL: Brinch Hansen’s Sequential 
Pascal - $150. 

Applications: The Osborne General 
Ledger, Accounts Payable / Receiv- 
able, Payroll, full source in QBASIC - 
$150. each 

* NOS: Multi-user operating system 
with byte-addressable device- 
independent files, hierarchical file 
system, read / write / execute pro- 
tection, print spooling, background 
batch, upward compatible from Disc 
Executive - $250. 

OBASIC: Extension of CBASIC 2 ,„ 
that generates fast machine code for 
the 9900. New and unique options 
include fast binary 1/0, separate 
compilation of functions, assembly- 
language functions - $220. 
Documentation: CPU, free software 
package, PASCAL, NOS - $40 - 
applicable to purchase; QBASIC - $20; 
Applications - $25 each 


* 


* 


* 


Mill Valley, CA 94941 
415/383-1545 


Advertising Design: Asterlsk Associates 
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By Lawrence Riley 


nformation utilities such as The SOURCE and MicroNet 

allow any individual with a microcomputer and modem 

to tap into a rich vein of information resources. These 
databases, however, are aimed almost exclusively toward 
the general consumer population, and as such, cannot ade- 
quately cover the needs of serious, small investors. That’s 
where the Dow Jones News Service (DJNS) comes in : the 
combination of the DJNS and The TI-99/4 may be the 
most significant advance in investment analysis since the 
electronic calculator made its debut . . . 

Historical stock quotes are available, as are current-day 
quotes for all listed stocks, bonds, options and U.S. Treasury 
issues. 

For a comprehensive review of a stock or industry, the 
“Media General" database provides detailed technical and 
fundamental indicators on the item of your choice. 

The conservative investor can access the ‘Disclosure 
On-line" database for a profile on most major companies, 
plus а “10-К” report that lists almost all the important (to 
the investor) information that can be found in a corpora- 
tion’s financial statement. 

“The Money Market Service” database is a new service 
introduced by Dow Jones in February of this year. Com- 
mentary, tables and graphs on the economy are displayed 
for most of the important indicators used in determining 
the current business climate. Of course, the ever-popular 
Dow Jones averages are also available, as are Trading Activi- 
ty, The Market Diary, Market Volume, and many other val- 
uable market statistics. 

With everything there comes a price tag, and the news 
service is no exception. During the business day (6:00 a.m. 
to 7:00 P.M. EST) the charge for news is $1 per minute. 
After 7:00, this rate is reduced 80% ! Until the next morn- 
ing, news can be accessed for 20 cents per minute, and his- 
torical market quotes for 15 cents, The start-up fee for the 
service is $50, but there are no monthly charges or mini- 
mum on-line times. For high-volume users there is pricing 
option “A”. Under this option, there is a $50 monthly fee 
in exchange for lower prime-time rates during the business 
day. Pricing option “В” should be satisfactory for most 
individual investors. 


9756 Hadley Drive, Overland Park, KS 66212 
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A LOOK AT THE 


In my day-to-day use of the Dow Jones News Service, I 
have found no problems in accessing the system with my 
TI.99/4. When using the Terminal Emulator 1 (TE-1) 
module, the keyboard does occassionally lock up. But I 
have found that pressing the Shift-C key while simulta- 
neously holding the Shift-V key down, will bring the cur- 
sor back. After discovering this trick, I haven't lost any 
data due to TE-1 lock-up. 

After news has been obtained on the News Service, there 
are really only two things that can be done with it: (1) it 
can bekept temporarily, or (2) kept permanently. News that 
is to be kept temporarily is best stored on a disk or printed 
copy for ease of access and readability. When keeping news 
permanently, cassette tapes, especially if bought in volume, 
can be both cost effective and reasonably efficient. 

For aspects of the service other than news, there are 
many different ways to use both the historical and current 
quote database. The historical quotes are available in either 
monthly or quarterly format for any given item. While a 
weekly format would be desirable, the monthly quotes can 
be used to determine most long and intermediate term 
trends. For the very short term, one month of daily quotes 
are always available. These can be used to develop a 10, 15, 
or 20 day moving average of prices for the item being re- 
searched, and if saved over a period of time, can be used in 
any format. 

For the novice investor, the Media General Data Base 
provides a sufficient amount of both technical and funda- 
mental analysis. Fundamental Analysis refers to informa- 
tion concerning the aspects of a particular company or in- 
dustry such as assets, net worth, or earnings. Technical 
Analysis refers to the study of the chart or graph of a com- 
pany, industry, or the market in general—in the hope that 
past behavior as revealed in graphs can be used to predict 
future price movements. 

The serious investor may prefer to develop his or her 
own analytical tools. One current theory on Wall Street to- 
day is that about half of a stock's performance is due to 
movement of the market in general, and about half of the 
movement is due to characteristics peculiar to that particu- 
lar stock. Naturally, anyone that can predict the movement 
of the market, even for a short time, has a very powerful 
financial tool. 

For this reason, my own analysis tends toward analyzing 
the leading market indices. This analysis can be facilitated 
by the use of the TI Personal Record Keeping Command 
Module (PRK). Each page can be set up to represent one 


1 


day, and the first few lines can label the index to be tracked. 
The remaining lines can be the 10, 15, or 20 day averages of 
the aforementioned indices. The use of math transforma- 
tions in the PRK module allows the average to be computed 
for each of the indices, but the average must be entered 
manually with the “change page” option. One by-product 
of the average that is computed automatically by the PRK 
module is the standard deviation. I have found this statistic 
to be a good indicator of market volatility. It too can be 
entered and tracked with the average. The ability of the 
PRK module datato be analyzed by the Statistics Command 
Module is a definite plus for analysis. Even though the 
Statistics module is a more sophisticated analytical device, 
and offers more tools to work with than the PRK module, I 
do not feel that it is essential to index analysis—only help- 
ful. 

Investors with access to a TI-59 programmable calcula- 
tor as well as a TI-99/4 can perform some rather astounding 
mathematical computations without a strong math back- 
ground. Quotes can be obtained through the News Service, 
and used in a "Least Squares Curve Fit" program detailed 
in the Texas Instruments publication: Sourcebook for Pro- 
grammable Calculators. This will result in a series of simul- 
taneous equations which can be solved either with the 
Master Library-2 program on the TI-59, or with the Math 
Library program on the Т1-99/4. In theory, the resulting 
equation should be a reasonably accurate description of the 


line the datapoints were taken from, and can be used to pre- 
dict the future behavior of the line. Naturally, the number 
and quality of the datapoints chosen determine the accura- 
cy of the predictive equation, and any conclusion drawn 
from such analysis is at best, highly speculative. 

Fundamental analysis using the TI-99/4 also has many 
applications. Balance sheet and income statement analysis 
can be programmed, and then compared to an “ideal” or 
average analysis to determine the variances in an effort to 
discover the strengths or weakness of a particular company 
or industry. The information for these analyses can be found 
in the 10-K section of the Disclosure On-Line Database of 
the News Service. 

Of course, these are only a few of the applications that 
can be put to use with the TI-99/4 and the Dow Jones News 
Service. In the past, this mathematical analysis of the mar- 
ket and it's component stocks were inaccessible or simply 
incomprehensible to the small investor. But now with the 
help of your TI-99/4, a sophisticated approach is both avail- 
able and easy to use. 


In closing, I would recommend that any investor with a 
TI-99/4 computer call Dow Jones on their toll free number 
(800-257-5114 except N.J.) to request their free informa- 
tion packet detailing prices and services. 

Good luck 99'ers, If this works for you, your only prob- 
lem may be writing a suitable income tax program! Q 


FREE COMPUTER INFORMATION: NETWORK FOR 99'ers 
'NOW AVAILABLE IN 16 STATES AND 2 PROVINCES 


{ver three dozen computers with 

Р specialized information in such sub- 
ts as astronomy, education, ama- 
{téut Гай, апа, games can be accessed 

4 free of charge through any computer 
1 doa ‘with ; terminal-emulation 
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puters available by modem . to. any 
computer or terminal user. Call 213: ; : 
881-6880, 24 hours a day. When the ++ 
welcome message 
LOGON PLEASE, type in the word 
CAT and press the Carriage Returri 
tware) sor terminal, by using an or- ог ENTER key on your computer or 
terminal, The video screen will dis- 
play an 18 item menu that contains 
product information, a glossary. of: 
computer terms, 
[printer test. Item 18 is the directory 
d Bear Seba s sent over the tele- of free dial-up computers that is up- 
ебу еу + 4 dated each month. Many of the list- 


and a modem 


ings are only for Apple or TRS80 
users (indicated by "ABBS" and 

Map "FORSO", All other listings are ac- 
"or. T cessible with any other computer 


CBBS Inglewood (213) 673-2206 
CBBS Philadelphia (215) 563-0674 

.CBBS Macon (217) 429-5505 

acp Kor County IL 

appears... :CBBS Arlington Hts (312) 255-6489 
CBBS Chicago (312) 767-0202 (10) 

* 'CBBS Chicago (312) 545-8086 (10) 
CBBS Detroit (313) 288-0335 (10) 
CBBSST Louis (314) 781-1308 
CBBS ST Louis ` (314) 227-8495 
CBBS Atlanta (404) 394-4220 (10) 
CBBS Atlanta (404) 939-1520 (5, 10) 
CBBS Portlan (503). 641-8555 
CBBS Portlan (503) 641-9029 
CBBS Long Island (516) 939-9043 
CBBS Phoenix (602) 957-9282 
CBBS Vancouver, (604). 687-2640 (10) 

BC 
CBBS Ottawa (613) 725-2243 
CBBS Nashville (615) 254-9193 (10) 
CBBS Cambridge (617) 864-3819 (10) 
CBBS Las Vegas (702) 454-3417 
CBBS Alexandria (703) 620-4990 (10) 


that is emulating a terminal through VA 


a 300 baud asynchronous modem 


100 series specifications 


CBBS Orange (714) 751-1422 (10) 


CBBS Fullerton (714) 526-3687 


E К that is compatible with Bell System county 


CBBS $аптее СА (714) 449-5689 (10) 
CBBS Vermont (802) 879-4981 (7) 


| CBBS Wash. ОС (202) 281-2125 aon 
t mt request СВ85 Wash, ОС, (202) 337-4694 (10 
nm don sean CBBS Seattle (206) 723-3282 
B CBBS Seattle (206) 246-8983 
à ЧОЙ messages. Users also have СВВ5 New York (212) 787-5520 (14) Codes: 
sQpportunity of placing any type CBBS New York (212) 997-2186 (7) 2 = Amateur Radio 
of information. into these computer 


CBBS New York (212) 933-9459 5 = Games 
ifes = thus -forming a national com- CBBS New York (212) 245-4363 {10) 7 = Education 
ae bulletin board. 


CBBS Los Angeles (213) 954-8582 10 = 24 hour operation 
CBBS Los Angeles (213) 291-9314 14 = Astronomy 
dem Hnc, а modem manu- Kus Los дарае ДОС eat casi ; 
"acturer ffeis.a free-dial-up directo- CBBS Los Angeles (213) 881-6880 (10 
Y: К \ up-tordate listings: of com- (Маханов Directory LOGON wit n 


CBBS Sacramento (916) 393-4459 (12) 
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~ Now You Can Access 
роу Jones Investment Informatio: 
. On Your Personal Computer 


Whether you 

own an Apple, Atari, 
Commodore, Radio Shack, 

or. other computer hardware sys- 
tem, you can now get on-line with 
Dow Jones Information Services. 


This database is filled with re- 
liable business and investment 
information fed directly from The 
Wall Street Journal, Barron’s, 
and the world-wide Dow Jones 
News Service. Having access to 
this business/investment database 
is like having a private stock 
ticker, financial consultant, and 
comprehensive business library 
right at your fingertips. 


Current Stock Quotes 
With Dow Jones Information Ser- 


‚ vices you can retrieve in-depth 


articles from The Wall Street 


К ‚ Journal and Barron’s; get stock 
с quotations—just 15 minutes de- 


-For More Information Call Toll Free 
(In New Jersey, call (609) 452-1511) 


ром JONES INFORMATION SERV ICES | 


Providing Information Through 


“Р.О. Box $00 . 


^, Princeran, NJ 08540 


layed—for over 6,000 companies; 
receive 50 key financial indica- 
tors and historic earnings and 
dividend figures on selected com- 
panies...even update, manage, 
and evaluate your personal port- 
folio with the Dow Jones Portfolio 
Management Series! And, you 
can do all of this at your conven- 
ience, in the privacy of your 
home or office. 


News. ..90 Seconds To 
90 Days 


To make sound business and in- 
vestment decisions, you need in- 
stant access to and retrieval of 
vital business information. With 
Dow Jones Information Services, 
you get this information—as re- 
cent as 90 seconds, as far back as 
90 days—when you need it, 21 
hours a day. Plus when you get 
on-line with Dow Jones, there's 


B Stock Quotations For Over. 
6,000 Companies 


Ш Financial news from The Wall 
Street Journal and Barron's 


B 50 Current And Historic 
Financial Indicators For 
Thousands Of Companies 


(800) 257-5114 


no minimum aj 
access charge 
or subscription fee. 


If you're serious about. inves 
ments and would like to have the; 
information-gathering resources“ j 
of Dow Jones at your command, 

visit your computer store for as 
demonstration or call us today, 


By F..T. Berkey 


interface and a modem in addition 

to your TI-99/4 system, you have 
the possibility of tapping a vast informa- 
tion network through existing and 
planned computer time-sharing services. 
A variety of information services such as 
news, financial information, computer 
games, various data bases, and program 
exchange, to name just a few, are pro- 
vided through information utilities such 
as The Source (by Source Telecomput- 
ing Corporation) and MicroNET (by 
CompuServe). TEXNET, a collaboration 
between Source Telecomputing Corpora- 
tion and Texas Instruments, will enhance 
data base services with the addition of 
text-to-speech, color graphics, and mu- 
sic. This service will be available exclu- 


| f you have invested in an RS232 


DATA COMMUNICATIONS 


& the TI-99/4 


will be some time, however, before the 
prospect becomes fully implemented 
[see /nformation Utilities & the Electro- 
nic Cottage in this issue] , we'll start this 
series of articles with an examination of 
basic data communications between the 
T1-99/4 and other computers. 


Data Communications Concepts 


A number of coding schemes have 
been devised to represent characters in 
order to input information into a com- 
puter. The most widely used code is the 
American Standard Code for Information 
Interchange—more commonly known as 
ASCII code. It is a 7-bit code which can 
represent 128 character configurations. 
Figure 1 illustrates the bit patterns asso- 
ciated with each of the characters. An 
eighth bit, called a parity bit, is com- 
monly included in the ASCII code. The 
parity bit is used to detect errors in the 
bit stream which might be due to the 


ty of a ASCII coded signal can be odd 
or even. An ASCII code with even pari- 
ty must contain an even number of ones; 
for odd parity the number of ones must 
be odd (i.e., 1, 3, 5, 7). Examples of 
other codes are the 5-bit Baudot code, 
the 6-bit Binary Coded Decimal (BCD) 
code and the 8-bit Extended Binary 
Coded Decimal Interchange Code 
(EBCDIC). These codes use different bit 
patterns to represent characters than 
does the ASCII code. The Texas Instru- 
ments Terminal Emulator 1 (TE-1) Com- 
mand Module enables you to tailor your 
T1-99/4 to fit the characteristics of the 
remote computer system. With the com- 
munications device menu, you can spec- 
ify the parity of the received or trans- 
mitted signal—odd (default), even, or 
none (no parity bit)--and set the num- 
ber of data bits at 7 (default) or 8. 

The actual number of bits transmit- 
ted is larger than the number of bits in 


sively to users of the Т1-99/4. Since it reading or transmission of the data. Pari- the code. “Housekeeping” bits are added 
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both before and after the bits which 
represent the character code. The addi- 
tional bits are called start and stop bits. 
A single start bit is added at the front 
of the code as a signal to advise thé re- 
ceiving device to start sampling the in- 
coming signal. Stop bits, added after the 
character code, indicate when the code 
is finished, and reset the device for rec- 
ognition of the next start bit. For an 
ASCII coded signal, 11 or 12 bits are 
typically transmitted (see Figure 2). 


In data communications terminology, 
a full duplex channe! implies that in- 
formation can flow in two directions 
simultaneously. On a half duplex chan- 
nel, the information can flow in both 
directions, but not simultaneously. If 
you select the half duplex mode from 
the TE-1 communications device. menu, 
(and set the modem accordingly), the 
Characters you send will be "echoed" 
back to your monitor or TV set, and 
appear on the screen. The echoed or 
extra character does not occur if full 
duplex is selected. 

The public telephone network pro- 
vides means of communication from 
your Т1-99/4 to another computer or in- 
formation service. The information or 
bit stream’ that your computer sends 
and receives, travels serially through the 
network. That is to say that the bits 
making up a character are sent and re- 
ceived one after another. Serial trans- 
mission is not the only mode in which 
data can be transferred. Inside your 
T1-99/4, data bits are transmitted in 
parallel;all eight or sixteen bits are trans- 
ferred simultaneously from point A to 
point B. Parallel transmission can also 
be used to transfer information between 
computers, however, it is more complex 
to do so and therefore more expensive 

* than serial transmission. 


There are a variety of modes of data 
transmission. Your modem transmits 
data asynchronously. This means that 
each character is sent independently of 
any other character, and that the data 
bits are preceded by a start bit and fol- 
lowed by at least one stop bit. Synchro- 
nous transmission requires that both the 
sending and receiving modems are syn- 
chronized by a clock signal. The rate at 
which data is transmitted (or received) 
is termed the baud rate. The formal def- 
inition of a baud is that it is the recipro- 
cal. of the length of the shortest pulse 
used to create a character. Since all the 
bits of the ASCII code are equal in 
length, the terms ‘‘bits per second" and 
"baud" can be used interchangeably. A 
baud rate of 110 requires a minimum of 
2 stop bits; at 300 baud a minimum of 1 
is required. The TE-1 software allows 
you to choose between three baud rates 
(110, 300 or 600), but your modem 
limits your use to either 110 or 300. 
The RS232 interface also allows you to 
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DATA BITS 


DATA BITS 


Figure 2. 
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use baud rates of 1200, 2400, 4800 or 
9600. The higher rates can be used to 
output data to a printer or to send data 
to another TI-99/4 connected directly 
to your system. 

The function of your modem is to 
convert the binary pulse train (1s and 
Os) from your computer to some form 
of analog signal (tones) that can be 
transmitted over a telephone line. You 
will note that in the transmit mode your 
modem emits a continuous tone. This 
tone is called the carrier signal. When 
sending data from your Т1-99/4, the 
modem's function is to modulate (vary 
the amplitude or frequency) this carrier 
signal. It also works in the opposite sense 
by demodulating the carrier, so that the 
ASCII code sent to your T1-99/4 can be 
properly interpreted. Thus, the term 
“modem” is derived from the two words 
which describe its function: MOdulation 
and DEModulation. A common modula- 
tion technique is called frequency shift 
keying (FSK). This technique converts 
the binary pülses from the computer to 
two tones of different frequency. For 
example, if the carrier signal has a fre- 
quency of 1500 Hz, a 1 would be trans- 
mitted at 2000 Hz and a 0 at 1000 Hz. 


Terminal Emulator 1 Command Module 


The TE-1 Command Module imple- 
ments all 128 characters of the standard 
ASCII code which is illustrated in Fig- 
gure 1. The TI-99/4 keyboard is not en- 
coded with the lower case character set, 
but lowercase can be easily invoked by 
depressing SHIFT V, then 1. It’s also 
possible to send any standard ASCII 
control characters (used for signaling a 
remote computer or device to perform a 
predefined function), and display lines 
containing more than 40 text or pro- 
gram characters by "wrapping" the ex- 
tra characters onto a second line. The 
most powerful feature of the TE-1 is the 
ability it gives users to store received da- 
ta on tape or disk. You can review this 
data after logging off the remote com- 
puter, and can aiso send it to a printer 
or another computer. 


Data Communications 
Using Basic Language Programs 


The format of the data stored by the 
TE-1 is ASCII (display format) and is of 
variable record length with a maximum 
of 192 bytes (characters). In order to 
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make further use of the information, it 
is necessary to write programs using 
BASIC. A simple example of such a pro- 
gram is shown in Figure 3. Line 130 
opens a saved disk file using the OPEN 
statement. The following line inputs an 
ASCII character string; if the record de- 
notes the end of file (EOF), the program 
ends. Otherwise the number of charac- 
ters is found using the length function 
(LEN) statement. A new character string 
is created in line 170 using the string 
segment function (SEG$) where the last 
position of the character string is defined 
as N, the number of characters in the 
string. The character string is displayed 
on the monitor or TV, and the program 
returns to the INPUT statement (line 
140) and continues to read the data file 
until an EOF is detected, 

Often data retrieved from another 
computer or information service con- 
tains lower case ASCII characters. Since 
the TI-99/4 BASIC recognizes only up- 
per case characters, the program of Fig- 
ure 4 will insert the patterns stored in 
memory at the locations corresponding 
to decimal codes 97-122. Using the 
CHAR subprogram, the lower case char- 
acters can be defined as codes 97-122. 
For example, a lowercase A is given the 
character code 97 and the pattern iden- 
tifier “0000300838483С00.” The pro- 
gram listing in Figure 4 adds the lower 
case characters to the program listed in 
Figure 3. These patterns can be modi- 
fied or improved by using the character 
definition program listed on pages 186 
and 187 of the User's Reference Guide 
(Note that line 510 of that program in 
early printings of the book contains an 
error: B(R,2)*4 should read B(R,6)*4), 
or the lowercase subroutine in TI's 
Programming Aids 1. 

Display formatted files can be sent 
from your T1-99/4 to another computer 
under control of the BASIC listing shown 
in Figure 5. The program assigns file 
number 1 to the indicated disk filename, 
and file number 2 to port 1 of the RS232 
interface. Each record or character string 
is input from the disk, displayed on the 
monitor, and then transmitted to the re- 
mote computer. Of course, this assumes 
that a means of recording this data is 
resident on the remote computer. This 
program could be used, for example, to 
efficiently transmit a pre-recorded mes- 
sage or text file to another home com- 
puter, 


The program listings in Figures 3, 4 
and 5 have a common flaw; if the dis- 
play file being read contains commas, 
the character string will be terminated 
by the first comma encountered. This is 
due to the fact that BASIC interprets 
a comma as a separator between charac- 
ter strings or data items in display for- 
matted data, (See page 158 of the User's 
Reference Guide.) This flaw can be 
overcome only if the file is created from 


BASIC and the procedure to do so is 
discussed on page 159 of the User's Ref- 
erence Guide. 

BASIC programs can also be trans- 
mitted to another computer through the 
use of the LIST command. After read- 
ing the program into the RAM memory 
of the Т1-99/4 using the OLD command, 
the command LIST “RS232” will send 
the program listing through port 1 of 
the RS232 interface to the modem or 
other device connected to the interface. 

In future articles, we'll examine other 
aspects of data communications, profile 
various communication services, and re- 
view the new Terminal Emulator 2 


100 REM 
110 REM 
UTS IT TO THE MONITOR 

120 INPUT “ENTER FILE NAME: “:FNS 


** PROGRAM DECODE ** 


140 INPUT #10:Х$ 

150 IF EOF(10)THEN 200 
160 N=LEN(X$) 

170 M$=SEG$(X$,2,¥) 
180 PRINT M$ 

190 GOTO 140 

200 END 


130 OPEN f10:"DSKl.^&FN$,VARIABLE 192,DISPLAY 


software along with its exciting reason 
for existence—TEXNET. Reader input is 
welcomed. 
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READS IN A DISPLAY DATA FILE SAVED WITH THE TERMINAL EMULATOR AND OUTP 


Figure 3. 


100 REM ** PROGRAM DECODE ** 

TS ITTO THE MONITOR 

110 CALL CHAR(97, “0000300838483C00") 

115 CALL CHAR(98,"0020203824243800") 

120 CALL CHAR(99, “0000182420241800") 

125 CALL CHAR(100,"00080838484838007) 
130 CALL CBAR(101, "000018243C201C00*) 
135 CALL CHAR(102,73028207020202000") 
140 CALL CHAR(103,700001C24241C0418") 
145 CALL CHAR(104, "00202038242424007) 
150 CALL CHAR(105, "0800180808081C00") 
155 CALL CHAR(106,"0800080808281800") 
160 CALL CHAR(107,"0020242830282400*) 
165 CALL CHAR(108, "0018080808081C00*) 
170 CALL CHAR(109, "00001C2A2A2A2200*) 
175 CALL CHAR(110,"0000382424242400") 
180 CALL CHAR(111,70000182424241800") 
185 CALL CHAR(112,"0000382438202000*) 
190 CALL CHAR(113, "00001C241C040400") 
195 CALL CHAR(114,"0000283420202000*) 
200 CALL CHAR(115, "00001820100830007) 
205 CALL CHAR(116,70010381010140800") 
210 CALL CHAR(117,"0000242424241800") 
215 CALL CHAR(118, *0000222222140800") 
220 CALL CHAR(119, 0000222A2A2A1400") 
225 CALL CHAR(120, "0000221408142200") 
230 CALL CHAR(121,"0000221408080800") 
235 CALL CHAR(122, *0000380810203800") 
240 INPUT "ENTER FILE NAME: ^:FN$ 


250 INPUT #10:Х$ 

255 IF EOF(10)THEN 280 
260 NeLEN(X$) 

265 MS-SEGS(XS,2,N) 
270 PRINT M$ 

275 СОТО 250 

280 END 


105 REM READS IN A DISPLAY DATA FILE SAVED WITH THE TERMINAL EMULATOR AND OUTPU 


245 OPEN #10:"DSK1."&FNS, VARIABLE 192,DISPLAY 


Note 1: 

The problem of using commas 
(and quotation marks) with the 
INPUT statement, as discussed 
in this article, has been remedied 
by the LINPUT statement of 
Extended BASIC, With LINPUT, 
there is no editing of what is 
input. 


Note 2: 
The new TI-99/4A console has a 
lowercase character set already 
built in, 


Figure 4. 


100 REM ** PROGRAM PRIDISPLAY ** 
110 REM 
120 CALL CLEAR 

130 INPUT “ENTER FILENAME:^:FN$ 


160 INPUT #1:Х$ 

170 NeLEN(X$) 

180 M$-SEGS(X$,2,N) 
190 NREC-NREC-l 

200 PRINT NREC;N;M$ 
210 PRINT #2:М$ 

220 IF EOF(1)THEN 240 
230 GOTO 160 

240 END 


**TRANSMIT DISPLAY FILES TO A PDP 11/70** 


140 OPEN f1:7DSKl."&FN$,VARIABLE 192,DISPLAY 
150 OPEN #2:"RS232.PA=N.DA=8.£C.TW.NU”,DISPLAY ,VARIABLE,OUTPUT 


Figure 5. 
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Getting Down 


to 


By George Struble 


Evaluating A Software Package 


categories of computer applications 

for business: (1) planning—concerned 
mostly with projections, and not having 
to be done at particular moments at peril 
to a business; and (2) integrated use— 
applications such as invoices, accounts 
payable and receivable, mailing list 
maintenance, general ledger, inventory, 
or any of many others upon which a 
business crucially depends at particular 
times. In this article, we'll explore some 
of the implications of integrated use. 

Programs for integrated use are likely 
to be rather extensive, After all, most 
such applications involve organization 
and management of significant quanti- 
ties of data. This means that the pro- 
grams must help you with the data entry, 
help you monitor the validity and cor- 
rectness of the data, and help you 
update the data. The programs must 
also be able to retrieve data for process- 
ing, summarization, and answering in- 
quiries. Depending on the application, 
the programs may also have to generate 
auditable controls and provide tax 
reports, 

The programs for an integrated use 
application must be well-designed and 
form what we would call an informa- 
tion system. To develop such a system 
takes a substantial amount of work— 
probably several months, if not years, 


About the Author 

George Struble, a professor of computer 
and information science at the University of 
Oregon, is author of Business Information 
Processing with Basic, Addison-Wesley Pub- 
lishing Co., 1980. 
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of programmer time. If your application 
is small enough for you to think about 
doing it on a TI-99/4 or other micro, it 
would be quite a mismatch of investment 
for you to pay for even six months of a 
programmer's time to develop a system. 
Therefore, you will want to buy a sys- 
tem that is already developed, packaged, 
and ready to install and use, You actual- 
ly have a better chance of getting a good 
working product by buying a package, 
than by having it done to your specifi- 
cations by a programmer. 


OK, you're in the market for a pack- 
age. Besides cost, the most obvious cri- 
terion is whether a proposed package 
will meet your needs. Now is the time 
—even before seeing the details of a pro- 
posed package—to make yourself a 
checklist of the features you want your 
package to include. List each processing 
action that you think would be necessa- 
ry in your system. Consider the data 
elements you think would have to be 
stored and related to each other in order 
to provide the information you will need 
at any moment. If done in a detailed 
and comprehensive way, this would be 
close to what we would call a systems 
analysis of your application. 

Great detail and comprehensiveness 
are not needed; the idea is to give you a 
starting point for judging the adequacy 
of a package you may be offered. You 
will probably find that a particular pack- 
age is organized differently and does its 
activities differently from your outline. 
There’s nothing wrong with that. Con- 
centrate on the results produced and 
whether they are appropriate: Does the 
proposed package provide the informa- 
tion you consider essential? Then, of 


^ 


course, you сап also judge whether the 
proposed package is convenient or awk- 1 
ward, and flexible or rigid. 

A second suggestion is to talk to 
other users of the proposed package, 
and get their opinions of the package’s 
strengths and weaknesses. You may be 
surprised how willing other users are 
to share their experiences. Even if you 
have to phone a couple of users long- 
distance, it will be well worth the 
trouble and cost. 

You should not expect your needs in 
an information system to always remain 
the same. Your business changes; audi- 
tors make new demands; federal or state 
regulations change. This is where flexi- 
bility of a system comes in. Chances are, 
that there will come a time when you 
will want your system to do something 
it was not designed to do. Then, you 
will need help in modifying the system. 
The supplier of the package is in the 
best position to know how to modify 
your system. But will he be around 
when you need him? Find out whether 
the source program is supplied and ac- | 
cessible to you. If it is, then you have a 
chance of getting someone near you to 
modify it when needed. Try to find out | 
from the supplier and users how much 
trouble a minor modification would be. 
You may not be absolutely able to trust 
an answer you get, but a judgement of 
modifiability is a hard problem, and this 
is the best suggestion | can make. 

In my next article | will review some 
business-related software. This will pro- 
vide an opportunity for some more 
specific suggestions in the analysis of a 
package. 

Now let us turn our attention to 
something more tangible—a program 


GAMES & SIMULATIONS by FUTURA 


CASINO PACK $19.95 ORDERING INFORMATION: Alt orders shipped postpaid 

Slot Machine, Craps and Blackjack a within 48 hours, Please enclose payment with order. For 

ALL'STAR BASEBALL” $29.95 HOUSEHOLD оез outside orth America add 10% for postage and 

Pitching, fielding and base-running all under player control INVENTORY д 

CHALLENGE І $19.95 SYSTEM Add $2.50 for postage on supply orders. Texas residents 

Leaping frogs in two mind-challenging games add 5% sales tax. 

CHALLENGE ML seuils ev: Wisk $19.95 $59.95 Ask for FUTURA Software at your local software dealer. 
With this award-winning program you Write for detailed description of these and other pro- 

DR. NUTTIER*** $19.95 


can accurately inventory personal grams from FUTURA. 
at 


Converse in plain English with your computer as you seek property, calculate actual replacement 


professional counseling 


value, and maintain records on a cur- Dealer inquiries Invited 
WALL STREET* $19.95 rent basis а 
Play the stock market and become a millionaire or a pauper 
GRAN PRIX 0 — 
Bet on the race as four cars maneuver a circuitous track BUSINESS SOFTWARE 
SAM DEFENSE сее $29.95 General Ledger $139.95 
Command an authentic surface-to-air missile site Accounts Payable $149.95 
GALACTIC WAR** $29.95 Accounts Receivable $149.95 
Fast action space battle Payroll $ 99.95 
Inventory Management $ 99.95 
sikoj Word Processing 139.95 
‘Also in Extended Basic hy a 
**Extended Basic only Mailing List $ 49.95 T Мү А R E 
***Diskette only Fully interactive programs offer a totally 


integrated accounting system. 
— — — ————m.— Loa dei with innovative features: 
— Completely menu-driven 


SUPPLIES: — Random access of data 
— Choice of retrieval of account records by name 

C-10 Cassettes — Pully prompted input " i 

E $1.00 £s — Guaranteed to be bug-free and operator-proof! Ehninger Associates. Inc. 
| 10:7 2 B — Hot-line and enhancement update service available. 
| “ Purchase units individually or the entire package P.O. Box 5581 

Verbatim Minidisks with hub rings for 649.95. Fort Worth, Texas 76108 
Box of 10 $35.00 Write for full details. 817/246-6536 


DISK DRIVE WOES? i DATA SYSTEMS 


PRINTER INTERACTION? COMPUTER SOFTWARE 
MEMORY LOSS? = 


ERRATIC OPERATION? Graphics Worksheets Mini - Programs 


D nt ` Designed to make graphics These short (usually 50 
о - easier to program. lines or less) programs can be 


pack of 15 $1.00 used as is, or can be incorpo- 
\ rated into your own pro- 
Blame The Ҹ рее! 100 $6.00 grams. Each is only $0.75 
| Graphics — Flags 
О tware Н Software choose from the countries 


below 
Power Line Spikes, Surges & These quality programs Andorra ireland 
Hash could be the culprit! ipud ans d are only $2.00 each. Argentina Italy 
Floppies, printers, memory & processor often interact! Our . X cA 3 
patented ISOLATORS eliminate equipment interaction AND curb 2x2 Matrix determination ,Austria Ivory Coast 
damaging Power Line Spikes, Surges and Hash. 3x3 Matrix determination Belgium Libya 


* ISOLATOR (ISO-1) 3 filter Isolated 3-prong sockets; integral Acceleration-rocket program Bolivia Luxembourg 
Surge/Spike Suppression; 1875 W Maximum load, 1 KW load any Circle from three points Chad Mali 


socket $62.95 ivati i El Salvador Mexico 
! * ISOLATOR (I Sprong socket banks; (6 Derivative of a function 


sockets total); Integral Splke/Surge Suppression; 1875 W Max Freefall-falling body Ethiopia Netherlands 
load, 1 KW either bank . $62.95 program France Nigeria 
* SUPER ISOLATOR (150-3), similar to 150-1 except double Hydrocarbon combustion Gabon Norway 


filtering & Suppresslon -. . - $94.95 G Pi 
program reece eru 
| ° ISOLAOR (55-4) sia o n excepi си $ Hyperbolic functions Guatemala Switzerland 
* SUPER ISOLATOR (ISO-11) similar to 180-2 except double Quadratic equation Guinea Upper Volta 
fisin EED ККУ der (add CB). Add РИ E Sigma function Hungary United States 
. any model (add- stead ' 
+ СКТ BRKRISWITCH/PILOT (CBS) ИП Add $18.00 Vector dot product Iran West Germany 
| Vector cross product : " 
AT YOUR MasterCard, Visa, American Express Graphics pictures 
DEALERS Order Toil Free 1-800-225-4876 — | TIE Fighter Grid 


(except a - PR & Canada) DATA SYSTEMS Spectacular 
Lea Electronic Specialists, Inc. 2214 W. IOWA 


171 South Main Street, Natick. Mass. 01760 Chicago, IL 60622 
| Тесһпїса! & Моп-800: 1-617-655-1532 Tel. (312) 235-2699 MINIMUM ORDER IS $15.00 
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that should be of practical use to many 
of you. 


Effective Interest Rate 
or 
Return On Investment 


Suppose you have an opportunity to 
buy an investment for $1500. The in- 
vestment is expected to pay $140 at the 
end of each of the next five years, and 
at the end of five years return a lump 
sum of $2000, What is the effective in- 
terest rate or total yield on this invest- 
ment? Or, put another way, what is the 
return on this investment? This problem 
can be stated in terms of capital in your 
business: If you invest some amount in 
a certain piece of equipment or in a 
higher level of inventory or... , you ex- 
pect some estimated improvement in 
revenues. What is your expected return 
on this investment? 

Since you have many opportunities 
and a limited amount of capital, you 
need to compare the expected rates of 
return on each of several opportunities 
in order to be able to make the best 
decision. Of course, there are usually 
intangible benefits too, as well as varia- 
tions in the risks of different invest- 
ments. A return on investment calcula- 
tion is, therefore, not the only—or neces- 
sarily the deciding—criterion in your 
decisions. Nevertheless, it will certainly 
provide valuable input to your decision 
-making process. 

The program presented here is a rela- 
tively simple one. | define a component 
of the investment as one or more pay- 
ments of equal amount made at regular 
intervals. An investment will have two 
or more components; they are the main 
input to the program. Each component 
is described by: 


(a) the amount of each payment (there 
may be only one). 

(b) the time at which the first of these 
payments is made. Time is measured 
in months from the current mo- 
ment, which is understood to be 
time zero. 

(c) the number of months between pay- 
ments, This is irrelevant if there is 
only one payment in a component, 
but we require a number anyway. 

(d) the number of payments in this 
component. 


For instance, the example above in- 
cludes three components: 


1st Component 


2nd Component 
3rd Component 


Note that the investment amount is 
given as a positive number, but the 
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returns on the investment are given as 
negative numbers. The second compo- 
nent represents the five annual pay- 
ments (12 months apart) starting 12 
months after the current time. The first 
and third components represent single 
payments: the initial payment and the 
final payoff after five years (60 months). 

The program makes provision for up 
to ten components; the number of 
components is the first input the pro- 
gram asks for. 

The program strategy is to compute 
the residual present value at an interest 
rate higher and one lower than the ef- 
fective interest rate. We use an interpo- 
lation formula to produce a better esti- 
mate to the effective interest rate, then 
narrow the range of possible effective 
interest rates, and repeat the process. 
The program stops when the residual 
value is less than some fraction of the 
total of the numbers used in computing 
the residual value, or when the range of 
possible effective interest rates is less 
than some tolerance. There are four pa- 
rameters set in statements 200-230 of the 
program that you may want to change, 
depending on your requirements: 


U9 = starting upper bound for effective 
interest rate, set now at 30%. 

L9 = starting lower bound for effective 
interest rate, set now at 096. 

T9 = tolerance for range of effective 
interest rate, set now at .0596. 
When the possible range is less than 
this, we conclude you have the rate 
closely enough. 

P9- tolerance for residual present 
value, set now at .0001. Because of 
round-off error during the calcula- 
tions, this tolerance should not be 
reduced much below this value. 


Figure 1 shows a transcript of the ex- 
ecution of the program with the sample 
data given above. 

Note that the program uses a subrou- 
tine starting at line 720; a parameter R 
is supplied to the subroutine, and para- 
meters V and V3 are returned. If you 
have Extended BASIC, you can make 
these parameters explicit in the subrou- 
tine call. You can also rephrase some of 
the control structures using IF-THEN- 
ELSE and multi-line statements, and 
make the program much more readable. 
1 leave this for you to explore. 


Lease vs. Purchase Analysis 


Quite complex programs are available 
to do an analysis of whether leasing or 
purchasing some piece of equipment is 
more advantageous. The effective in- 
terest rate program can be used for a 
lease vs. purchase analysis, though it re- 
quires you to do some side calculation. 
One way to do the analysis would be es- 
sentially to calculate the return on 
purchasing the equipment and /easing 


Figure 1 


ENTER NUMBER OF PAYMENT 
COMPONENTS? 3 

ENTER AMOUNT OF PAYMENT?’ ые 
ENTER TIME OF FIRST OF THESE... 
PAYMENTS? 0 : 
ENTER PERIOD BETWEEN THESE 
PAYMENTS, IN MONTHS? 1. ``. 
ENTER NUMBER OF THESE. 
PAYMENTS? 1 ш 


~ 


ENTER TIME OF FIRST OF THESE 
PAYMENTS? 12, 
‘ENTER PERIOD BETWEEN THÉsE 7. 
PAYMENTS, IN MONTHS? 12. ° . 
ENTER NUMBER OF THESE ЖЕЕ) 
РАҮМЕМТ$? 5 va 


ENTER AMOUNT OF PAYMENT? —2000. 
ENTER TIME OF FIRST OF THESE. 
PAYMENTS? 60 

ENTER PERIOD BETWEEN THESE `: 
PAYMENTS, IN MONTHS? 1° ee 
ENTER NUMBER OF THESE | - ` 
PAYMENTS? 1 


RESIDUAL PRESENT VALUE AT 
0% 15 —1200 y^ 
RESIDUAL PRESENT VALUE AT ы 
30% 15 731.7656652 т 
RESIDUAL PRESENT VALUE AT 
18.63580073% 15 290.8235145 ' 


RESIDUAL PRESENT VALUE AT 4 
15.00040794% IS 93.29345296 x 
RESIDUAL PRESENT VALUE AT LN 


13.91833345% 15 27.69506322' >,” +, 
RESIDUAL PRESENT VALUE AT 
13.60435554% 15 8.02691232. ., 
RESIDUAL PRESENT VALUE AT : 41 
13.5139594% IS 2.310160891 ^ 
RESIDUAL PRESENT VALUE AT 
13.48799321% 15 .6635205027 \ 
RESIDUAL PRESENT VALUE АТ E 
13.48053936% !S .1904640003 "а 
EFFECTIVE INTEREST RATE, 
COMPOUNDED MONTHLY, IS 
13.48053936 


back to someone else. You would 
include the 


* cost of purchase (*) 

* tax benefits from claimed deprecia- 
tion (—) 

ease payments (—) 

maintenance cost, if maintenance is | 
provided under the lease (+) 

* any difference in insurance or other 
costs between purchasing and leasing 
*or —) , 
expected cost of purchase at the end 
of lease period (—) or trade-in value 
at the end of lease period (~) 


The rate of return indicated by this anal- 
ysis can be compared with your borrow- 
ing cost, and the comparison would give 
you an indication of whether purchase: 
or lease would be more advantageous to 
you. 

As a small example, suppose you are 
going to get a widget-grinder. You can 
buy it for $12,000, or lease it for three 
years at $300 per month. No mainte- 
nance is involved, and the insurance cost 

Continued on p. 75 
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Battle At Sea 
By W.K. Balthrop 


amn the torpedoes! Full speed 
[ss ..." Get ready, all you 

“armchair admirals” out there in 
99'erland, You're about to do battle 
with the most crafty enemy of all--the 
Imperial TI Fleet. If you're old enough 
to remember those rainy Saturdays in 
the pre-TV age, you've probably spent 
many an hour with pencil and paper 
playing Battleship. In the intervening 
years, Battleship has been dressed up as 
a consumer item in many forms: First it 
was ''cardboardized," then “plasticized,” 
and finally ‘‘electronicized.” Well gang, 
as it happened, one rainy Saturday 
afternoon a few months ago, | had this 
mad urge to play Battleship .. . The ex- 
pensive electronic version looked really 
enticing in a local toy store display, but 
| sure wasn't going to spring for it— 
especially when І had my trusty T1-99/4 
personal computer waiting to carry out 
my every command. So program it | did. 
The result: Battleship has now been 
"O99'erized" into a 16K TI BASIC ver- 
sion, which I call Battle At Sea. 


Two 10 x 10 grids are displayed on 
the screen along with the row and col- 
umn designations. The computer will 


. Battle Stations ! 


CATCH & MATCH 


GAMES 
in 

TI BASIC 
& 
Extended 
BASIC 


“in the rest of this magazine. Sure, it's been interesting and infor- 
> mative , . . but you need some fun too! Right? Relax then. You're 
ай my: territory now: Kelley’s Korner—the place for great graphic 
"games and sensational simulations. 


F arget all'the educational and technical stuff you've been reading | 


* “ For this issue, the official travel brochure says that I’m supposed 
|, to lead’ you. on an excursion into the world of "static pattern match- 
* ing" and /‘dynamic coincidence.” But ‘tween you and me, what we're 
«really gonna do is hatch a batch of “catch & match" games. 


К е So. get ready to battle your computer for supremacy of the seven 
< séas, hélp the harried housewife handle her housework, and sprint 
«after those spectacular shifting sprites. It's time to begin .. . 


Battle Stations ! 


Battle At Sea 
By W.K. Balthrop 


99'er Magazine 
Harried Housewife 
By Regena 
S9'er Magazine 
Sprite Chase 
By Ron Binkowski 


428 Adams 
Dolton, IL 60419 


ask you to enter coordinates for the 
placement of each of your ships on the 
grid at the right. Each coordinate must 
be entered separately; for example A 5 
then A 6 for the destroyer. Since the 
ships occupy different numbers of grid 
squares, I’ve put in a counter for each 
ship to indicate how many remaining 
squares that must be entered. 

After all the coordinates for a ship 
have been entered, that ship will be dis- 
played on the screen. Once all five ships 
are set up, the computer will secretly set 
up its own ships on the grid to the left. 
You won't be able to see the computer's 
ships, since the whole idea of the game 
is to try to find them. 

Once the computer has set up its 
ships, it will ask you for the coordinates 
of your shot at its grid (on the left). 
You must enter your shot as a row let- 
ter, then a column number. Valid coor- 
dinates are from A-} and from 0-9. Any 
other entry will result in having to enter 
the coordinates again. Your hit or miss 
will be marked on the grid and displayed 
at the bottom of the screen as a MISS or 
**HIT**, The computer will then take 
a shot at your grid. It cannot see your 
ships, but it does keep track of where 
the hits and misses are. 

After a hit, any ship that has been 
sunk will be displayed at the bottom of 
the screen. The score is also updated at 


this time: one point for each ship sunk. 
The first player to sink all five ships will 
win the game. 

Because there are no moving objects 
in this game, speed was not the most 
important factor in the game design. The 
action happens to be fairly fast, but the 
critical factor was programming the 
computer to make intelligent decisions. 
With no limit on available memory, | 
might have been able to write a program 
with flawless logic. But here that wasn't 
the case—with having to stay within the 
confines of standard 16K TI BASIC. 

| started by giving the computer a set 
of rules and several variables to test for 
a given situation. First, if a ship has 
been hit only once, the computer will 
take random shots around that hit until 
the direction is determined. It will then 
continue in that direction until either the 
ship has been sunk, or it misses a shot, or 
it runs up to the edge of the grid. It will 
then reverse and shoot at the other end 
if the ship was not sunk. If you put ships 
adjacent to one another, the computer 
sometimes gets ''confused" and gets 
caught in an endless loop. Therefore, 
keep your ships separated by at least one 
square in both horizontal and vertical 
directions (its ships can be adjacent) if 
you want to give the Imperial T] Fleet a 
fighting chance. q 
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EXPLANATION OF THE PROGRAM 


Keep track of which turn it is; Branch to eit! 


2870-2910 
: Battle At Sea user's shot, or computer's shot. 
" 2 2920-3170 Compüter takes random shot at your arid i 
‘Line Nos. | x 3 no ships are hit. 
100-630 Initialization: Set up variables, character defi- 3180-3340 Read keyboard; INPUT user's shot at coms 
nition, and color assignments, puter's grid. 

640-870 instruction page. 3350-3570 Check for valid INPUT, hit; or miss. i 
880-1010. Display two 10 x 10 grids. 3580-3710 Check for direction of hits on your ships. 
1020-1100 . Control loop for setting up your ships onthe 3720-4150 Таке random shot around last. hi r only on 

` 10 x 10 grid. hit on the ship. 
1110-1360 Subroutines holding data on each ship. 4160-4450 If more than one hit on à ship takes another 
1370-1380 Branch to subroutine: computer sets up its hit in proper direction, 
ships. 44604620 Adjust variables when computer gets a hit. 

1390-1530 Display mesage for ship coordinates to be en- 4630-4770 Find out how many hits on each ship; used: 
tered. for both computer, and user. 

1540-17 10 Read keyboard; INPUT coordinates of ships. 4780-4980 Calculate score, and number of ships hit, bu 

' Ри the coordinatesin order, — : not sunk. 
| -2050 "Check that all coordinates are valid. 4990-5020 . Display any.ships that have been destroyed 
| 1060: 2220 Display ship on the 10 x 10 grid. ter every hit, 

2230-2380 Control loop holding data for computer to 5030-5090 Display scores. 
set up its ships. 5100-5190 End of game message. 

2390-2600. Subroutine to set up computer: sships.atran- 5200-5320 Re-initialize variables for next game, 
dom. “ 5330-5340 END of game. 

2610-2860 Set up variables for messages; subroutines for 5350-5460 Subroutine to make sure ships аге inline. 
displaying those messages. 

100 REM XXX*£ZX5$Tt*? TXEi*Ói* 700 PRINT "MUST ENTER COORDINATES ON" 

110 REM Ж BATTLE AT SEA * 710 PRINT "THE 10 X 10 GRID ON THE RIGHT." 

120 REM x*xx***5*Xiti$xttiikx 720 PRINT "ENTER THE ROW, THEN THE COLUMN, " 

130 REM 99°ER VERSION 7.81.1 720 PRINT "EXAMPLE: AS" 

140 REM BY W.K. BALTHROP 740 PRINT "AFTER YOUR SHIPS ARE SET UP" 

150 REM 750 PRINT "YOU WILL TAKE A SHOT AT THE" 

160 REM 760 PRINT "ENEMY SHIPS BY ENTERING ONE" 

170 REM 770 PRINT "PAIR OF COORDINATES ON THE" 

180 RANDOMIZE 780 PRINT "ENEMY GRID." 

190 CALL SCREEN(12) 790 PRINT "THE COMPUTER WILL THEN” 

200 CALL CLEAR 800 PRINT "TAKE A SHOT AT YOUR SHIPS.": 

210 PRINT ТАВ (5) ; "BATTLE AT SEA” 810 PRINT “THE COMPUTER CANNOT SEE" 

220 PRINT ТАВ (12); "Вү" 820 FRINT "YOUR SHIPS. YOU CANNOT SEE" 

230 PRINT TAB(7); "W.K. BALTHROP” 830 PRINT “THE COMPUTER’S SHIPS.“ 

240 PRINT 323223323 840 PRINT "ENTER ANY KEY TO BEGIN." 

250 OPTION BASE 1 850 CALL SOUND(1,-2,30) 

200 DIM P(10,10),0(10,10),SH(5,5, 2) 860 CALL KEY(O,K,S) 

270 CALL COLOR(14,7,1) 870 IF S=0 THEN 860 

280 CALL COLOR(1S,11,1)5 880 CALL БСКЕЕМ (2) 

290 CALL CHAR(96,"O00000FF7FSF1F") 890 CALL CLEAR 

300 CALL СНАЯ (97, "OQOQOOOFFFFFFFF™) 900 PRINT " coe Otek you" 

510 CALL CHAR (9S, "SC7EFFFFFFFFFF™) 910 PRINT 1223113131 

320 CALL CHAR (99 ,"O00000FFFEFCFB") 920 FOR X-5 TO 14 

330 CALL CHAR (100, "1050707070707070") 930 CALL VCHAR(X,5,X+60) 

340 CALL CHAR(101, "7070707070707070") 940 CALL НСНАЕ (Х, 2, 128,10) 

380 CALL CHAR(102, "787C7E7E7F7F7C78") 950 CALL HCHAR(X, 19, 128,10) 

S60 CALL CHAR (105, "7070707070701010") 960 CALL VCHAR(X,17,X+60) 

370 CALL CHAR(104, "0Q080403FF7F3F") 970 NEXT X 

ZBO CALL CHAR (105, "8C4C3CFEFFFFFF") 980 FOR X-6 TO 15 

390 CALL CHAR(10O5,"O1023CSFFFFFFF") 990 CALL VCHAR(1S,X+12,X+42) 

400 CALL CHAR(107,"0090204FBFFFEFE") 1000 CALL VCHAR(1S,X,X*42) 

410 CALL CHAR(108,"1030727478787878") 1010 NEXT X 

420 CALL СНАК (109, "7С7С70717А47С7С7С") 1020 S1$-"CARRIER" 

430 CALL CHAR(110,"7F7F787C7C7C7A79") 1030 

440 CALL CHAR(111,“7078787C7C727110") 1040 

450 CALL CHAR(112,"00108867FF7FSF") 1050 "SUBMARINE" 

460 CALL CHAR(113,"O9CSCSFSFFFFFF") 1060 ESTROYER" 

470 CALL CHAR(114,"Q000204FBFFFEFE") 1070 FOR 5=1 TO 5 

480 CALL CHAR (115, "1050727478797А7С") 1080 ON S GOSUB 1110, 1160, 1210, 1260, 1510 

490 CALL CHAR(116, “797A7C7C7F7F787C") 1090 GOSUB 1390 

ЗОО CALL CHAR(117,"7C7C7A479787C7C1A") 1100 GOTO i260 

510 CALL CHAR(118, "OOOO0QOSFFF7FSF") 1110 PR$-S1$ 

$20 CALL CHAR(119, "O67EFEFFFFFFFF") 1120 LES 5 

S30 CALL CHAR(120, "ООООООЕОҒСРЕҒЕ") 1130 

540 CALL CHAR (121, "1030787878787878") 1140 

550 CALL CHAR(122,"787C7C7E7E7E7F7F") 1150 

560 CALL CHAR (123, “7070787878703020") 1160 

570 CALL CHAR(124, “OSOSOF1FFF7FSF") 1170 

580 CALL CHAR (125, “OO6OSO0FOFFFEFE”) 1180 

570 CALL CHAR(126,"1020707078787EbE7F") 1170 05=8 

600 CALL CHAR (127, "7С78787070707010") 1200 RETURN 

610 CALL CHAR(128, "FFB18181818181FF") 1210 PR$-S3$ 

620 CALL CHAR(136, "815E2C36603C2442") 1220 LE=3 

630 CALL CHAR (144, "814667ESC3C7E6681") 1230 S23 

640 CALL SOUND(-3000, 220, 30, 554, 20, 1047, 20, -8, 30) 1240 05=1 

650 PRINT " BATTLE AT SEA" 1250 RETURN 

660 PRINT :"YOU MUST DESTROY THE ENEMY" 1260 PR$-S4$ 

670 PRINT "SHIPS BEFORE THE COMPUTER" 1270 LE=3 

680 PRINT “DESTROYS YOUR SHIPS." 1280 8-24 

690 PRINT :"TO SET UP YOUR SHIPS YOU" Continued on p. 36 
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HARRI çD 


HOUSEWIFE 


By Regena 


his matching game is dedicated to 
tired housewives everywhere. who 


face the daily battle of keeping 
their houses clean amidst the unrelent- 
ing attacks from their kids, husbands, 
dogs, cats, visiting relatives, unexpected 
friends, and even home computers—those 
new family additions that seem to be 
forever spawning dust, out-of-place fur- 
niture, and loose papers. 

Harried Housewife uses the color 
graphics of TI BASIC to depict eight 
household chores: dusting, sewing, 
washing clothes, doing dishes, cooking, 
vacuuming, shopping, and ironing. It isa 
matching game that even your young 
children will enjoy playing. The rules 
are simple: An array of 16 squares is 
displayed on the screen. Each square 
represents one of the eight chores, and 
there are two of each chore somewhere 
in the array. The object of the game is 
to find each pair. You do this by choos- 
ing two squares at a time and entering 
the corresponding two letters. As a 
letter is entered, the chore for that 
square is shown. If a match is made, the 
chore is considered finished and is listed 
on the right side of the screen. If a 
match is not made, the two selections 
are covered, and two more letters may 
be chosen. 

When all eight pairs are matched, the 
housework is complete; you have a 
clean house and the game is over. But 
you mustn’t take too long, because 
when the kids come home (determined 
by the counter in line 1420), every- 
thing gets scrambled and the harried 
housewife must start over... And asall 
harried housewives undoubtedly know: 
It's not easy to get a completely clean 


house. Often the goal has to realistically 
become somewhat more attainable — just 
seeing how much can be accomplished 
before the kids come home. 

If you get too harried and want to 
quit, press "S" for stop. The arrange- 
ment of the current array will be dis- 
played. After you have examined it, 
Shift C (BREAK) to end the program. If 
you really feel you must win more often 
— that is, winding up with everything 
matched to signify that elusive "clean 
house" — you can keep the kids out of 
the house longer by increasing the 
number in line 1420. Then enjoy 
the fantasy of a completely clean house 
all the time. What? Why can't your 
home computer make this fantasy actu- 
ally come true? Be patient, It's just a 
matter of time . , . Anyway, in the 
words of a once-popular song: “Such 
are the dreams of the everyday house- 
wife...” 


Programming Techniques 


This program illustrates the capabili- 
ties of TI-99/4 color graphics. Characters 
are defined in each of the eight user- 
defined character sets, and each set has 
a different color scheme. These eight 
sets are used for the eight chores; and 
for ease in programming, they are num- 
bered 1 through 8. 

Two characters in Set 2 are also re- 
defined with a blue foreground and a 
red background ("FFFFFFFFFFFF- 
FFFF" and “0”) to draw the 16-square 
checkerboard array. It is drawn with a 
triple-nested FOR-NEXT loop (State- 


“HONEY — од You i-e му SLIPPERS? ” 


ments 2040-2150). 

The eight chores to be drawn are 
called in subroutines (Statements 2290 
to 3060). The subroutines use x- and y- 
coordinates to define the placement of 
the special characters. The coordinates 
are specified before the subroutine is 
called. The coordinates for the chore for 
each of the sixteen squares where the 
chore may be drawn are listed in sub- 
routines also (Statements 5350-5980). 

To set up the array of 16 squares, 
two arrays are actually used: WORK(16) 
and HH(16). The WORK array is given 
the numbers of the eight chores: WORK 
(1)=1; WORK(2)=2; . . . WORK(9)=1; 
WORK(10)=2; etc. (statements 3370- 
3400). For the HH array, a subscript 
RR is chosen as a random number from 
1 to 16. HH(RR) is then set equal to 
WORK(RR), and then WORK(RR)=0 so 
it won't be chosen again. This process 
continues until all 16 numbers of the 
HH array have been filled randomly 
with the numbers from the WORK array 
(statements 3410-3470). These numbers 
are the chore numbers for the squares. 
For example, HH(4)=7 means behind 
the 4th square(D) would be chore num- 
ber 7 (shopping). 

The WORK array is then reset equal 
to the HH array so the chores can be 
printed in order on the squares for a 
"clean house” or for “stop”. 

As the game is being played, the HH 
elements are set equal to zero if a match 
is made, so the match can only be scored 
once. [f a player chooses a square which 
has previously been part of a matched 
pair, the word “DONE” appears across 


the square. [is] 
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* EXPLANATION OF THE PROGRAM 


3480-3500 


Resets WORK array equal to HH array. 


A Н 3510 Restarts number of matches. 
meee Carried Housewife 3520-3560 Clears printed list of matches made. 
Line os. yas 3570-3600 Resets HH array to original WORK array for: 
130+ 0,5: А s-title screen. printing. 
: 170-240. ‘Defines’ colors for eight household chores. 3610-4470. When a match is made, blinks the picture and’ 
250800 - : ‘Defines. special characters for drawing the prints the chore in the “Finished” list; prints) 
` {14+ chores: o^ labels under pictures in the squares. 
810‘ Displays the eight chores on title screen, 4480-4550 Prints "PRESS ENTER TO CONTINUE” and 
820.830 ` `7 Sets, counters for the number of trial guesses waits for respogs 
nae апа the number of successful matches. 4560-4570 Clears messa; 
840 | Dimensions arrays to handle 16 elements. 4580-4610 Covers squares again and relabels them, d 
, Redefines characters for checkerboard. 4620 Return for next choice. 
870-880... Delays for. title screen. 4630-5260  Subroutines for covering particular square. 
‚890-900 - А Clears screen: sand makes it yellow. 5270-5300 Colors blue square. 
310..: {11 Detines.colors for checkerboard, 5310-5340 Colors red square. 
920 | Draws:chetkerboard and labels it, §350-5980 Designates the chore number and coordinates: 


930 ^  . Assigns the chores for each square in array. 
940-990 Prints “HOUSEWORK”. 


for the square chosen, 


1000-1110 | Prints "MATCH 2 LETTERS”. 
‚ 1120-1140: - Prints two red lines for the letters chosen. 
- 1450-1180: ; Waits-for letter A-P to'be pressed. 
1190 Prints the chosen letter. 
1200-1210 Finds. chore number and coordinates for 
й . «square chosen. 
1220-1240 ` If the square has been previously matched, 


100 
110 
120 
130 
140 
150 
160 


REM HARRIED HOUSEWIFE 
REM  99*ER VERSION 7.81.1 
REM БҮ REGENA 

CALL CLEAR 


“HOUSEWIFE” 
1:1: TAB (9) ; "BY REGENA" 
CALL COLOR(9,7,15) 


Nod 170 
prints "DONE", 180 CALL СОСОК (10,15,12) 
1250 .: Draws first chore on square. 190 CALL COLOR(11,14,11) 
1260-1310 Waits for second letter to be pressed and 200 CALL COLOR(12, 16,3) 
prints it. 210 CALL COLOR(13,7,12) 


1320-1330 . Finds the chore number and coordinates for 
that square. 
1340-1370 · Prints "DONE". | 


CALL COLOR(I4, 5,8) 

CALL COLOR(1S, 15,16) 

CALL COLOR (16,3, 14) 

CALL CHAR (96, "OOOOOAOEBEBEFFFF ") 


1380 Draws second chore оп square. 260 CALL CHAR(97,"0000000020EOCOC") 
1390 Checks for a match. 270 CALL CHAR(98, "0201010702010101") 
1400 Increments the number of trials. | 280 сеш: CHAR (7s RECEEEEEEERET ETE we 

f Баи 2 ‚* А nO") 
1410 ІГ ТІМЕ= 10 prints message to hurry. 500 CALL CHAR (101, "05070Е1С3870Е0С") 
1420 ‚+ Tf TIME=12, kids come home. ^ M 

A H 310 CALL CHAR(102, "FFOEOX") 

1430 Branches if TIME is less than 10. 320 CALL CHAR(105,"0") 
1440 Clears previous message. 350 CALL CHAR (104, "FFFEFFFFFFFFFFFF") 


1450-1500 , Prints “OH NO! KIDS ARE HOME!” 
1510-1530, Reprints checkerboard and scrambles chores 
^' “ fora new game. 


CALL CHAR(O05, "FCFCFCFFFFFFFFFE") 
CFCFSFBFOEOC") 
FFFFFFFFCFCFCFC") 


1540 Prints “PRESS ENTER TO CONTINUE” and AM ene ааа 
s waits for. response, covers squares for next 390 CALL CHAR (112, "000000000F OF OF OF") 
choice. 400 CALL CHAR (113, “0000000081 CSFFFF") 
:1550-1600. . Prints’ ' "SPEED-KIDS WILL BE HOME 410 CALL CHAR (114, "*00000000FOFOFOFQ") 
SOON!” 420 CALL CHAR(115, “OFOF") 
1610 Same as 1540. 430 CALL CHAR(116,"FFFFFFFFFFFFFFFF") 
1620-1730 , Correct match is made, sounds tone of A, 440 CALL CHAR(117,"FOF") — 
prints finished chore. 450 CALL CHAR(118,"PPFFFFFE-) 
з , 
1740-1750. : Sets. elements matched to zero so they can't 470 CALL CHAR(120, "00000000000C0F OF ") 
|.. be scored again. А 480 CALL CHAR (121, "000000000000FFFF ") 
1760 Returns for next choice. 490 CALL CHAR (122, "0000000000COCOFC*) 
1770-1820: If: all eight matches have been made, prints 500 CALL CHAR (125, "OFOFOFOFOFOFOFOFO7") 
“CLEAN HOUSEN” 510 CALL CHAR (124, "FFFFFFFFFFFFFFFF") 
1830 Prints S if player wants to stop. 520 CALL CHAR (125, "ҒЕСӨСЬСБРСЕВЕОВ") 
1840 Resets HH array to current arrangement. Zoa CA EONAR ZBA FETE : 
1850-1890 ` Shows all chores in array. 540 CALL CHAR (128, “IF1F1F1IFIFIFIFIF") 
Fer 550 CALL CHAR(129, "FFFFFCFCFCFCFCFC") 
1900-1960 . Clears all other printing. 560 CALL CHAR(130, "FFFF") 
1970-2020. Prints “HOUSEWORK NEVER ENDS”. 570 CALL CHAR(131,"1F1FOF") 
2030 . Holds screen until Shift C (BREAK) is pressed. 580 CALL СНАК (152, "ЕСЕСЕВ") 
Subroutines 590 CALL СНАК (155, "0") 
2040-2 150° Pri ints checkerboard. 600 CALL CHAK (136, "1FOFO10000000303") 
2160-2210 . Prints letters A to P on squares. 220 m Han sin LO USO SERIO 
2220-2280 › Prinits “S=STOP” and returns. | 5 ? «FBFOFOFOFOFOEOE t 
A * | 630 CALL CHAR(139, "FBFOFOFOFOFOEOE") 
2290-2390 ; Draws feather duster. | 640 CALL CHAR(140, "EOC7CF7FFFFFFF") 


2400-2470 . Draws sewing machine. 


s "OOBOCOCOF OF OE") 


2480-2580 : Draws T-shirt for-washing. 560 CALL CHAR(142,"0") 
| 2590-2670: : Draws cup and saucer for dishes. o саш: снаа саа. то0оооосооаосіаіе) 
| 2520 2750.: DOMI pan for PUE 690 CALL CHAR (146, "FE252424FF2A2AFF") 
й 700 CALL CHAR(147, "“OOEO9E9ZFE9292FE") 
2870-2960 | ‘Draws shopping basket. 710 CALL CHAR (148. "06090906") 
2970-3060: Draws ironing board. 720 CALL CHAR (149 
3070-3280 : Places: symbols on title screen. 730 CALL CHAR(152, "000000001F1F1F1F") 
3290-3160 ` Plays music for title screen. 740 CALL CHAR(153,"00000000FQFFFFFF ") 
pes Pus two sets of chore numbers in WORK 750 CALL CHAR(154,"0000000000FOFEFE") 
760 CALL CHAR(155,"1F1F1F040201") 
770 CALL CHAR (156, "FFFFE2040810A04") 


Ls ` of each chore. | Continued on p. 38 
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Sprite Chase 
By Ron Binkowski 


ait... Wait... Wait... 
Wess will they get here? 
Wait... Wait... Wait... 


"Hi dear, anythi 


ng in the mail today? 


Did you look between the doors? Oh. 


Shucks."" 


"Hello Ginny. W 


package from UPS 


you get it for me? TI 


"See you later 
stairs," 


They're 


at? You accepted a 
or me? Great! Could 
anks." 

dear, I'll be down- 


here... 


The SPRITES are here... 


NOW, WHAT CA 
Skim through t 


Uh huh. OK. Yea. 


Let's get a little de 
COINC looks lik 


| DO WITH THEM? 
he manual, page 25. 
This looks great! 
eper. Page 64. Oh oh. 
e the ALL option 


doesn't tell you w 


hich SPRITES *'coin- 


cidenced.” | hope someone can find out 


where to PEEK for 


this. 


Now, what shall I do with them? 
Something simple. Design some cute 
characters? No, let's just get those 
SPRITES moving. Since COINC ALL 
might take some time to figure out 
which SPRITES are coincidental, PH 
stick to one SPRITE versus another. 
How about a series to chase? Numbers 
...Letters...ROTATION... That's 
ib: 

A short game chasing the 10 numbers 
or a longer game chasing the 26 letters. 
PH try the MAGNIFY too, I'll need а 


обу 
ба 


numeric variable for the COINC toler- 
ance for that. | guess 8 for normal size 
and 16 for double size. I'll generate the 
number or letter SPRITES to go any 
which way at some spced between —25 
and 25. I'll stick to the 8 directions 
around the arrows for the chaser or else 
PIL get so tangled up in the math that 
I'll never move a SPRITE. Wish | had 
Joysticks. | guess some kind of clock 
would be good for scoring. 

Well, here we go: D 


T 
EXPLANATION OF THE PROGRAM i 
Sprite Chase 

Line Nos. 

170-200 Instructions, 

210-280 Set up variations for play. 

290-300 Reset for start of game. 

310 Make clock numbers reverse image. 1 

320-330 Put the Chaser somewhere in middle of the | 
screen. j 

340-360 Create the Chasees. 1 

370-390 The chase has begun. 

400-450 While waiting for a direction key to be pressed, 
keep the clock going and check for a coinci- 
dence when the Chaser is stationary. 

460-530 Start the Chaser in the direction of key | 
pressed, 

540-590 While awaiting release of direction key, check 
for a coincidence when the Chaser is moving; 
keep clock going. 

600-610 Stop the Chaser; wait for another key to be 
pressed, 

620-650 Caught one; go for the next onc, 

660-710 End of game. 

720 That's it. 


A FEW POST SCRIPT NOTES: 

If a SPRITE is moving slowly in a vertical direction, it 
might go off the top or bottom of the screen for a while, 
but can be caught there. 

If you insert COINC statements between alot of the in- 
structions and check the HIT field, you probably would 
reduce the times a coincidence is missed. 

If you leave the Chaser in its original position, all targets 
will eventually pass through it. I wonder how long this 
would take? 

‘If it sounded like I was talking to myself, / was! Doesn't 


710 CALL KEY(O,GOT,STATUS) 


220 IF STATUS-O THEN 210 
230 THEN T=16 :: CALL MAGNIFY(D ELSE 
5 THEN T=8 ELSE 210 

240 PRINT "FOR NUMBERS PRESS 'N',":"FDR LETTERS 
PRESS 'L'." :: PRINT 

250 CALL КЕҮ (0, 507, STATUS) 

260 IF STATUS-O THEN 250 

270 IF GOT=78 THEN TARGS=10 :: CH-47 ELSE IF GOT=76 
THEN TARGS=26 :: CH=64 ELSE 250 

Z280 CALL CLEAR 

290 RANDOMIZE 
COUNT-O 


CALL COLOR(Z,2.9):: CALL COLOR(A 2,9) 
CALL CHAR(96,"FFFFFFFFFFFFFFFF") 

CALL SPRITE(G&28,96,2,90., 120,0,0) 

FOR А=1 TO TARGS 

CALL SPRITE (ФА, А+СН, 2, 90,120, INT(RND&50-25) , 
INT (RND#50-25) ) 

NEXT A 

CALL SOUND (100,555,0) 

FOR А=1 TO TARGS 

CALL COLOR (GA. 16) 

CALL KEY (С, GOT, STATUS» 

COUNT=COUNT+1 

DISPLAY АТ ‹24.1)512Е 4) : COUNT 

CALL ССІМС (#29, ВА, T. HIT) 


IF HIT=-1 THEN 620 

IF STATUS=9 THEN 400 

IF GOT=69 THEN CALL MOTION(#28,-30,0 GOTO 540 
IF GOT=88 THEN CALL MOTION( #28, 50,0) GOTO 540 

IF GOT-58 THEN CALL MOTION(#28,0,3 GOTO 540 

IF GOT=82 THEN CALL MOTION(#28,0 GOTO 540 
IF GOT-87 THEN CALL MOTION( #28, —- 


т GOTO 540 


CALL MOTION (#28,-30,50):: GOTO 540 
CALL MOTION (#28, GOTO S40 
CALL MOTION (#28, 20, 50 GOTO 540 


LL KEY(O,GOT. STATUS) 

LL COINC« 285.9. HIT) 
HIT--1 THEN 520 

NT=COUNT+1 

PLAY AT(24, D) SIZE (6) : COUNT. 


everyone??? STATUS--1 THEN 540 
N (#28, 0,0 
100 REM XKXXXX*Xxxxtktktr РЕША 28. » 
110 REM * SPRITE CHASE x a 
DELSPRIT 
120 REM XX*X*ripbp iori SOUND ID bs 
130 REM 99'ER VERSION 7.8i.1XB MOTIONQA OI 
140 REM BY RON BINKOWSKI SENE 
150 REM ч 
160 REM CHARSET 
ЕРНИ ТВ «INT "YOUR SCORE IS ";COUNT 
180 PRINT "USE THE FOUR ARROW KEYS AND WR CAL BERI. COT iAP ү 
TO CHASE THE LETTERS OR NUMBERS." FRINT a STATUSS такы SO 
190 PRINT "YOU MUST CATCH THEM IN ALPHAGR NUMERIC заела 
кыы ^ IF 507=59 THEN 280 
SEQUENCE." :: PRINT 222 PRINT © BYES 
200 PRINT "PRESS 'L' FOR LARGE TARGET. °S? FOR Y @ 
SMALL TARGET." :: PRINT 
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A 99'er Language Tutorial Series. `f 


TMS9900 
Machine & Assembly Language 


Part 2 : Registers, Programming, & The Need For Assemblers 


By Dennis Thurlow 


e left off last time explaining registers—devices 
Wwe act like Random Access Memory (RAM) in 

that they can be used to store and later recall 
values, but are different from RAM in that they are not ad- 
dressed by the bus. Registers are on the CPU chip itself, and 
only the CPU can address them. 

We discussed the Program Counter (PC) as being 16 bits 
long, allowing it to address 65536 bytes of memory, and 
noticed that the ones bit is not represented on the address 
bus. This was so that the PC could increment two bytes and 
hook them together making a single 16-bit word, or 
"'gobbyl," while the address bus would appear to increment 
only once. Other than this, the TMS9900 PC doesn't differ 
from those of other CPU's; it still tells the computer where 
to get its next byte or word from. 


Status Register 


Almost every CPU has some kind of flag(s). These are set 
(high) and reset (low) by actions performed in the manipula- 
tions of data. Different instructions affect different flags. 
Modern CPUs combine several flags into a single Status Re- 
gister. The TMS9900 is no exception. Its Status Register 
(ST) is 16 bits long. Bits 7-11 are not used at present. The 
others are shown in the drawing below, and are explained in 
the text. 


012 3 4 5 6 7 8 9 10 11 12 13 14 15 


UNUSED 


INTERRUPT 
MASK 


«22»0 
«43-2» 


$ormmm«o 


Each of these conditions will be discussed in more detail as 
examples are shown. Until then, these simple descriptions 
will help. 

The four bits labeled 12 - 15 can select up to 16 interupt 
levels. All levels equal to or above the level indicated are 
enabled. 

Bit O is set after any operation where the destination 
value (answer) is greater than the source value (the first 
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operand used and which remains unchanged). All 16 bii 
are used for the comparison. 

Bit 1 is similar to bit О except that the values are со 
pared as signed integers. The MSB (most significant bit] 
designates the sign of the integer, with a 1 meaning negativ 
and a 0 meaning positive. The range is *32,767 to —32,768 
Negative numbers are represented in a twos complemen 
fashion. 

Computer math is cyclic. This means that if you add 
to the highest possible 16-bit number (FFFF hex), you gd 
back to 0000 hex with a carry bit that is set. If yo 
subtract 1 from 0000 hex without the carry, you get a 
overflow; but if the carry is set, you get FFFF hex. Thera 
fore, —1 is FFFF hex in twos complement. To see its useful 
ness, let's add —1 and 1: FFFF hex plus 0001 hex equa 
0000, the carry is set, and the answer is zero. In a nutshell 
this whole business of twos complements and carry bits i 
simply a way to subtract by adding. 

Bit 2 is set if the two operators are equal. 

Bit 3 is set if a 1 is shifted out of an operator, or if 
carry occurs in a math operation. 

Bit 4 is set if the math requested cannot be done. 

Bit 5 is set if the parity is odd, and reset if it is eve 
Odd parity means that there is an odd number of 1s in th 
binary representation of an operator. 

Bit 6 is set after an extended operation has been com 
pleted. This is done because an interrupt is not checked fof 
after completion of an extended operation. (You therefor 
may wish to have the software check for one if this flag i 
set. 


The ALU 


Most CPUs have an Arithmetic/Logic Unit (ALU) wherd 
the simple math is performed. An accumulator, a specia 
register used by the ALU, usually contains the answers tq 
the math. In the TMS9900 there is no accumulator becausq 
the destination address is almost always the equivalent. Thi 
means, in effect, that any memory location can be the ad 
cumulator. There % an ALU on the TMS9900 chip, but itg 
operation is intrinsic to the instructions. 1 


Other Registers 


Most CPUs have a few extra registers where quickl 
needed values can be stored, as well as a register called 
Stack Pointer which points to a section of memory whei 


more data can be “piled” and then quickly accessed. These 
two concepts have been combined on the TMS9900 into a 
single Workspace Pointer Register (WP). The WP points to a 
block of 32 bytes of memory arranged as 16 workspaces 
(WS), each 16 bits long. The workspaces are synonomous 
with registers, and are used the same way. We can change the 
WP in several ways, and can save the old WP when a new 
one is used. This allows us to return to the old one if we 
need to. This set-up, in effect, acts like an elaborate stack. 

There are five different ways to use these WS registers to 
indicate an operator for an instruction. These addressing 
modes are as follows, 


1. Workspace Register Mode —the data in the indicated 
code 00 register is the data used. 

2. Workspace Register Indirect  —the data in the register is 
code 01 treated as the address of 
the real data. 

—same as above, but the 
register is incremented 


3. WS Register Indirect 
w/Auto-Increment 


code 11 upon completion. 

4. Symbolic or Direct —the address of the data 
code 10 follows the instruction 
destination 0 in memory. 

5. Indexed —address is found by add- 
code 10 ing the symbol amount 


destination 1-15 to an indirect register 


address. 


There are three other addressing modes not dealing with 
registers, per se: (1) The immediate mode has the data im- 
mediately following the instruction code. In other words, 
the address of the data is the address immediatly following 
the PC. (2) The CRU mode has the address of an external 
input/output (1/0) device determined by bytes 3-12 of regis- 
ter 12. (3) The JMP instruction (and all variations thereof) 
use the last 8 bits of the instruction to determine where on 
a 256 byte page to jump. The PC indicates the center of the 
page, so the jump can be from PC-128 to PC+127. One byte 
is taken up by the jump instruction itself. The 8 bits store 
the relative jump in twos complement form. 


Programming and the Need for Assemblers 


If your CPU is the TMS9900, the simplest computer you 
could construct would be composed of a clock, a CPU, 


some memory, a few control switches, 16 data switches, 16 
lights for read out, and 15 address switches. It would be 
crude and slow to program, but once programmed, it would 
operate as well as any other computer. But how could we 
program it? 

Suppose we wanted to load register 1 with zero, and 
then increment it until it was equal to either 1024 (decimal) 
or register 2. The first step can be done several ways. Imme- 
diately loading register 1 with 0 comes to mind first. A 
little investigation of the instructions for the chip show that 
we could save a word of memory by using the C/ear com- 
mand. Figure 1 showgthe register format for the various 
commands, and Figure 2 shows the op codes for the in- 
structions. 


FORMAT 


DEUHEDHUBDDBIIUEE 
| cove [e| | ^ іт, | 
[oco [> 
Forcone |e 


mui 


s 


ale 


o En 


KEY Tafr, FIELD CODES 
B 1-byte 0=word 00 Register 
Ty destination address mode 01 Indirect 
D destination address 10 with RO, symbolic 
Ts source address mode 10 with R1—R15, indexed 
source address 11 Indirect with increment 
counter 
register number 
unused 
RELATIVE JUMP from +127 to —128 


2500 


Figure 1. 


Using this information, we can now determine the bina- 
ry values of each word. Load immediate uses the first 10 
bits as the op code; the 11th bit is not used, and bits 12-15 
select the register. This means the first byte is 
00000010000X0001 , where X can be 1 or 0. 
The second byte is the value to load, and in this case would 
be all zeros. 


ЖЖ TI-99/4 SOFTWARE ** 


TEXT EDITOR $99 LA 


TEXT/99 - Allows entry, editing NY 
disk or cassette storage and print- NA 
ing of your written text. Upper & 
lower case. Word oriented for 
füllest editing freedom: change, R 
insert, delete or move. Chains files 
for long documents. (Manual 


f 


$10) A fantasy game of 
PERSPECTIVE PLOTTING $199 


DRAW/99 - For architects, en- 
gineers, artists, True perspective 
or axonometric tine drawings of 
any object you enter. Drives 
Mauro Eng. MP-250 plotter (11-in 
paper, about $800). (Manual $20.) 


NAVAL ARCHITECTURE 


99/4 programs for hull design, 
hydrostatics, performance and 
most marine design catculations. 
Inquire. 


LETCHER OFFSHORE DESIGN 
P.O. Box 104, Southwest Harbor, Maine 04679 
Tel. 207-244-7347 


‘PRESENTS 
NGWRAITH'S LAIR 


high adventure! 


For catalog write 


1586 So. Citrus 
Escondido CA. 


THE MICRO HOUSE 
Complete TI-99/4 Line 


Discount Prices Ж 


99/4A Console $400 
Disk Drive 400 
Disk Drive Controller 235 
RS232 Interface 175 
Epson MX-80 printer 630 
(with serial board & Cable) 


Add $5 for Shipping & Handling 


$24.95 


For complete price list write: 
THE MICRO HOUSE 
527 Simonet Street 
Green Bay, WI 54301 
Tel. (414) 432-2871 
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Now, just flip each switch on if there is a 1 at the corre- 
sponding bit, off if there is a zero. Press the /nput control 
switch (it also might be called Dump, or Load, ог...) and 
the instruction is stored in whatever address the address 
switches are set to. Then add 1 to the address switches 
(which adds 2 to the PC) and set all the data switches to 
zero. Press /nput again and our complete instruction is 
ready. 

If instead, we use the Clear command, we would use the 
single-operand general format with the first 10 bits being 
the op code. The next two bits indicate address mode, and 
the last 4 bits select the register. Since we want to clear the 


register itself (not the word it points to), the code is 00, 
and the whole instruction is 000001001 1000001. 

Even with a hex keypad and a small monitor program, it 
would be a very time-consuming process to piece together 
the binary words, and then convert to hex and type them in, 
Typing in 04C1 is easier than setting swiches to 

0000010011000001 , 
but putting together those op codes is just the tedious, bor- 
ing kind of work that computers are supposed to free us 
of. So why not use them for that? 

Why not, indeed . . . That's exactly what we'll do next 
issue when we look at a TMS9900 assembler. qQ 


Figure 2. 
Mnemonic Op Code Format Status Bits Affected Meaning 
A 1010 1 0-4 Add words 
AB 1011 1 0-5 Add bytes 
ABS 0000011101 6 0-4 Absolute Value 
Al 00000010001 8 0-4 Add immediate 
ANDI 00000010010 8 0-2 And immediate 
B 0000010001 6 - Branch 
BL 0000011010 6 Branch and Link (R11) 
BLWP 0000010000 6 Branch, load WP. 
c 1000 1 Compare words 
CB p 1001 1 Compare byte 
CI 00000010100 8 Compare immediate 
CKOF 0000001111000000 7 External Control 
CKON 0000001110100000 7 External Control 
CLR 0000010011 6 Clear 
coc 001000 3 Compare Ones Corresp. (OR) 
czc 001001 3 Compare Zero Corresp. (AND) 
DEC 0000011000 6 Decrement by one 
DECT 0000011001 6 Decrement by twa. 
DIV 001111 9 Divide M 
IDLE 0000001 101000000 7 Computer idles 
INC 0000010110 6 Increment by one 
INCT 0000010111 6 Increment by two 
INV 0000010101 6 Invert (complement) 
ЈЕО 00010011 2 (572=1) Jump if equal 
IGT 00010101 2 {ST1=1) Jump greater than 
JH 00011011 2 (STO and ST2=1) Jump high 
JHE 00010100 2 (STO or ST2=1) Jump high or equal 
JL 00011010 2 (STO and ST2=0) Jump low 
JLE 00010010 2 (STO-0 or ST2-1 Jump low or equal 
JLT 00010001 2 (ST1 and ST2-0) Jump less then 
JMP 00010000 2 {none checked) Jump unconditionally 
JNC 00010111 2 (ST3-0) Jump no carry 
JNE 00010110 2 (ST2-0) Jump not equal 
JNO 00011001 2 (ST4-0) Jump no overflow 
Joc 00011000 2 (ST3=1) Jump on carry 
JOP 00011100 2 (ST5-1) Jump odd parity 
LDCR 001100 4 Load CRU 
Li 00000010000 8 Load immediate 
LIMI 00000011000 8 Load immed, INT mask 
LREX 0000001111100000 7 External control 
LWPI 00000010111 8 Load immed, WP 
MOV 1100 1 Move word 
MOVB 1101 1 Move byte 
MPY 001110 9 Multiply 
NEG 0000010100 6 Negate (2's comp.) 
ORI 00000010011 8 OR immediate 
RSET 0000001 101100000 7 External control 
RTWP 0000001 110000000 7 Return with WP 
S 0110 1 Subtract word 
SB 0111 1 Subtract byte 
SBO 00011101 2 Set CRU bit to one 
SBZ 00011110 2 Set CRU bit to zero 
SETO 0000011100 6 Set ones 
SLA 00001010 5 Shift left (0 fill) 
soc 1110 1 0-2 Words (OR) Set ones corresp, 
SOCB 1111 1 0-2,5 Bytes (OR) Set ones corresp. 
SRA 00001000 5 Shift right (MSB fill) 
SRC 00001011 5 Shift right circular 
SRL 00001001 5 Shift right zero fill 
STCR 001101 4 Store from CRU 
STST ` 00000010110 8 Store ST 
STWP 00000010101 8 Store WP 
SWPB 0000011011 6 Swap bytes 
szc 0100 1 0-2 Words (AND) Set zero corresp. 
szcB 0101 1 0-2,5 Byte (AND) Set zero соггеѕр, 
TB 00011111 2 2 Test CRU bit 
x 0000010070 6 --- Execute 
, XOP 001011 9 6 Extended operation - + 
хон 001010 3 0-2 Exclusive OR я +4 
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ucked away in my basement, | 
Т have both a Radio Shack TRS-80 

and a Texas Instruments Т1-99/4. 
The half dozen personal computer mag- 
azines | read each month provide coding 
and ideas for many new programs for 
my TRS-80. I now have a large collection 
of these programs and have grown to 
really appreciate the help and enjoyment 
this software “library” provides. Unfor- 
tunately, it just hasn't been that easy to 
acquire software for the TI machine. 
[But now, with the birth of 99'er Maga- 
zine this situation will be rapidly reme- 
died—Ed.] The solution for me was ob- 
vious. Га convert my TRS-80 programs 
to TI BASIC. 

At the suggestion of 99'er Magazine's 
editor, | read an article by Harley M. 
Templeton appearing in the November 
1980 issue of Personal Computing maga- 
zine. Although the article highlighted 
the major differences between the ver- 
sions of BASIC used on the two systems, 
it didn't point out which differences 
matter, and which are merely interesting 
but of little practical importance. As 
you might expect, the only way to find 
out is to actually convert a program and 
learn from the problems that are en- 
countered, 

To set ир а fair test, ! selected TRS-80 
programs from opposite ends of the 
spectrum: The first was a “number 
cruncher” which | had written to con- 
vert the number correct on a test toa 
scaled value on a continuum of learning. 
(My nine-to-five job involves the manage- 
ment of the standardized testing pro- 
grams for the Portland School District.) 
The other program was an adaptation of 
the ideas behind a slot machine game in 
David Ahl’s Basic Computer Games—a 
program with extensive use of graphics. 

The first trouble | encountered was 
in converting the PRINT AT command 
available on the TRS-80. The procedure 


“Software Conversi 


TRS-80 BASIC 
to TI BASIC 


By Fred Forster 


395 S. W. 6th 
Gresham, OR 97030 


suggested by Templeton was to set a 
loop as follows: 


100 A$="‘SOMETHING TO BE 
PRINTED STARTING AT 10,12” 

200 FOR 1=1 TO LEN(AS$) 

300 NI-ASC(SEGS(A$,I,1)) 

400 CALL HCHAR(10,12,N1) 

500 NEXT I 


In theory this works fine, but it is 
slow if the string length is long; single 
characters don't walk across the screen— 
they crawl! Since the program requires а 
prompt printed in the middle of the 
screen to cue the operator to enter the 
next five values for the scaling proce- 
dure, my final solution was to use the 
following coding: 


100 PRINT *MESSAGE AT THE 
MIDDLE OF THE SCREEN" 
200 PRINT ::::::::: 


This procedure causes the text prompt 
to scroll up from the bottom to the 
middle of the screen. It is not especially 
speedy, but it is fast enough for data en- 
try in cases where you don't need lines 
at the top of the screen that disappear 
as a result of this scrolling action. 

The ease with which the “number 
crunching" code converted was a pleas- 
ant surprise. It was important to keep 
track of the differences in the line num- 
bers for GOTO's and other branches, 
but that, in fact, presented little prob- 
lem. What was more difficult was con- 
verting the logic of IF... THEN... 
ELSE clauses TRS-80 (Microsoft) 
BASIC allows multiple statements per 
line—coding that is messy to convert, 
but not too difficult. It does, however, 
also allow multiple statements following 
the THEN and ELSE—coding that is dif- 
ficult to keep straight and re-code. The 
multiple line conditionals can be con- 
verted, but the conversion requires a 


clear head and a basic understanding of 
how the program works. 

Since | had written the TRS-80 pro- 
gram myself (it had more lines of docu- 
mentation than coding) and naturally 
understood its operation, the conversion 
was fairly straight forward. After chang- 
ing nearly all the PRINT and PRINT AT 
statements, the program worked the first 
time (surprise). To check it out, | made 
a comparison run on the TI-99/4 and 
the TRS-80. Surprisingly, they ran the 
same job in almost the same time (three 
minutes for a fourty item test). Finally, 
| spruced up the program a little with 
CLEAR and CALL SCREEN commands 
to take advantage of the color options 
available on the TI machine. 

The second program was a challenge. 
it had essentially four main parts: (1) 
an introductory message, (2) the set-up 
graphics of the "slot machine," (3) the 
rotation of the wheels in the slot ma- 
chine, and (4) the determination of the 
winnings and losses, The first and easiest 
part of the program to set up was the 
section which printed the introductory 
messages. | couldn’t resist adding the 
CALL SCREEN command and sprucing 
up the comments to make it more attrac- 
tive (at least to me). In this instance, the 
lack of speed for the HCHAR command 
was a benefit since it painted the screen 
at a leisurely-yet-pleasing pace. Before | 
was through, | had changed all the code 
in this section for aesthetic reasons. 

My real conversion problems began 
in the second section. There, I came 
face-to-face with the significant differ- 
ences in the way graphics are handled 
by the two systems. In moving from a 
screen of 16x64 to one of 24x28, | had 
to stop and develop a new outline shape 
for the slot machine—one that would fit 
the TI screen. Deciding the colors to be 
used in defining the outline of the ma- 
chine and the shapes to be matched 
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Ledger 
/Payroll 


* Developed and used to simplify 

financial records in the author's 
household and solo incorporated 
medical practice. 


* Convenient, reliable disk-based 
package accepts 50 entries per 
month in 78 accounts and cate- 
gories, maintains year-to-date 
totals, and has features to find, 
revise, display and print entries 
and a chart of accounts. 


* А payroll program calculates 
monthly/semi-monthly payroll 
and prints quarterly records. 


16K TI BASIC 
Price: $55 Postpaid. 
(Disk * Full Instructions) 


Illinois residents add 6% sales tax. 


E. D Schwarz, M. D. 
735 St. Johns Ave. Suite 400 
Highland Park, IL 60035 


Texas Instruments 
TI-99/4A 
Console only $399 
Modulator 41 
Disk Controller 243 
Disk Drive 399 
RS232C 183 
Telephone Coupler 183 
Thermal Printer 325 
Speech Synthesizer 122 
32K RAM Memory 325 
Extended BASIC Module 81 


Remote Controllers 28 
Casette Cable 14 


TI-59 Calculator 199 
TI-58C Calculator 89 


We stock all TI-99/4 Software 
Prices FOB Lexington, KY 
Add $4 for shipping 
Credit Card Orders add 4% 
KY Residents add 5% tax 


CBM inc. 


198 Moore Dr. 
Lexington, KY 40503 
1-800-354-9099 
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(cherry, bar, bell, orange, lemon) took 
extra time. After some experimentation, 
dark blue against a white background, 
the lemon became a lime (dark green). 
To develop a new set of four characters 
for the orange, | experimented with 
CALL CHAR until the figure finally 
looked like a circle instead of one of 
Dali’s exploded watches. Since there 
isn't anorange color available, the orange 
became a plum (magenta). | was still a 
character short, so | used the heart from 
the back of the user's manual. 

En route to coding this part of the 
program, | had to define the shapes— 
assigning them to one of the sixteen 
character sets. 1, however, twice made 
the mistake of trying to conserve memo- 
ry by using one of the character sets 
with pre-defined codes. This caused er- 
rors in the print statements using these 
codes, The moral of that experience: 
Whenever possible, stay away from the 
first eight character sets when defining 
new characters, It took a while to work 
the kinks out of this section, but the ad- 
dition of color made a tremendous dif- 
ference, and | became hooked on TI 
graphics. (Ill probably never run the 
TRS-80 version of this program again.) 

At this point, | realized that virtual- 
ly every line of the original program had 
been rewritten in the move to the TI 
machine. Since this was to be an article 
on program conversion, not program- 
ming, | called the editor at 99'er Maga- 
zine to make sure | hadn't missed the 
point of the article. Gary, however, 
wasn't surprised at all, and encouraged 
me to include suggestions on rewriting 
as well as conversion. 

The third section of this program was 
probably the toughest to convert, | have 
been responsible for programming and 
systems analysis for over ten years on a 
variety of large computer systems. This 
has required establishing "structured" 
programming standards for every pro- 
gram with which | work. Even though 
| had personally keyed in the slot ma- 
chine program, | had forgotten how 
poorly it was documented. This is not a 
criticism of Ahl's book, but rather, a 
realistic comment on what you are 
likely to encounter when converting a 
program. After an hour of tracing 
through a maze of GOSUBS without the 
benefit of a single comment, 1 decided 
on a total rewrite. 

The TRS-80 version had the program 
determine the coordinates of one of the 
nine open spots on the slot machine, 
and then perform a PRINT AT at that 
location. Using FOR . . . NEXT loops, it 
was possible to overprint the nine spots 
to give the illusion of a rotating machine 
wheel. By converting the PRINT AT 
commands to HCHAR calls and storing 
the four codes for each shape in an 
array, it was possible to simulate this 
action on the T1-99/4. The graphics 
were fantastic (an unbiased estimate), 
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Want to Get 
Published? 


99'er Magazine is looking for 
articles in all areas of personal 
computing that. concern the: 
Texas Instruments T1-99/4 and 
other TMS9900-family systems? 
(e.g., Marinchips, Technico, and 
the TM990/189). Неге are the? 
kinds of articles that we want 
you to write for us: E 


* Are you a businessman, pro: 
fessional, hobbyist, scientist: 
or engineer with an interest- 
ing microcomputer . applica-: 
tion? Tell us how it works, 
what problems you've had to4 
overcome, and what recom-j 
mendations you have for: 
others. We're especially inter- 
ested in sharing user-written: 
software with our readers. 

e Have you recently purchased 4 
a piece of hardware or soft: 
ware that hasn't quite come: 
up to your expectations, ог? 
has, on the other hand, im-? 
pressed you with its perform-: 
ance? Мете looking fori 
comprehensive product and 
book reviews from different : 
perspectives. Я 

* Are you an educator or par: 
ent with something to con: 
tribute to computer-assisted 
instruction (CAI)? We're al-: 
ways looking for new ideas 
and fresh approaches to edu- 
cational problems. 

* Have you created any unusual} 
computer games or simula-4 
tions? Let our readers ex- 
perience your excitement 
and pleasure. : 

* Perhaps you've modified your 
microcomputer or have inter- 
faced it with some unique or: 
useful hardware. Send us 
your how-to-do-it story. : 
These are just some ideas. 

Perhaps you have others, Don't 

worry if you're not a profes- 

sional writer. Our editorial staff? 
stands ready to help polish up? 
your manuscripts. And we'll be: 

more than happy to send you а; 

copy of our author's guidelines. 
Send your manuscripts, and 

correspondence to: 3 


99’er Magazine / Editorial Dept. | 
2715 Terrace View Drive, 4 
Eugene, Oregon 97405 


SUMMARY OF 
TRS-80 Commands 
Not Requiring Conversion 
` ABS GOSUB REM 
` ASC . INPUT RESTORE 
ATN INT RETURN 
"S CHR$. -LEN SGN 
:2) COS; LET SIN 
`” DATA LOG SOR 
SD DIM ON/GOSUB  STR$ 
ЮК! END ON/GOTO TAN 
EXP PRINT VAL 
ij... GOTO. READ 
TRS-80 Commands 
Easily Converted 
TRS-80 TI BASIC 
CLS CALL CLEAR 
FIX INT 
INKEY$ CALL KEY 
INPUT #—1 INPUT #1 
LEFTS(A$,N) SEG$(A$,1,N) 
MID$(A$,N1,N2) SEG$(A$,N1,N2) 
RANDOM RANDOMIZE 
RIGHT$(A$,N)  M=LEN(A$)—N+1 
SEG$(A$,M,N) 
RND(N) INT(N*RND+1) 
STOP BREAK 
TAB TAB, (with comma) 
? PRINT 
j REM 


COMMANDS 


TRS-80 Commands 
That Can Be Ignored 


CLEAR CSNG DEFSNG 
CDBL DEFDBL DEFSTR ` 
CINT DEFINT FRE. 


Commands Difficult to Convert to TI BASIC 


TRS-80 TI BASIC 
IF..THEN..ELSE — IF..THEN..ELSE* 
refer to line numbers, 241°... 
POINT CALL CHAR CALL’GCHAR ·· : 
POKE (graphics) CALL CHAR САЦ. HCHAR 
PRINT AT FOR .. ASC.. CALLHCHAR .. 
NEXT 
PRINT ., FOR ; . PRINT." ”.. 
NEXT 
RESET CALL CHAR CALL HCHAR 
SET CALLCHAR CALL.HCHAR 


** Improved capability with multi-line statements 
in Extended BASIC. 


Commands Not Available In TÍ BASIC** 


ERL PEEK STRING$ 
ERR POKE USR 

ERROR POS VARPTR 

ON ERROR RESUME PRINT USING 


**Most of the equívalent commands are available in 
TI Extended BASIC. 


but the speed was disappointing. In the 
TRS-80 version it was necessary to in- 
sert “dummy” FOR .. . NEXT loops to 
slow down the rotation of the wheels; 
the TI version, on the other hand, was 
too slow right from start. 

The single enhancement | had made 
to the TRS-80 version was to have the 
wheels stop one at a time, to prevent 
giving away the final result of the pull 
during rotation. To keep the wheels 


moving at a constant speed on the TI- 
99/4, | included dummy counting loops 
as each wheel was stopped. In spite of 
its lack of speed, the richness of the TI- 
99/4 graphics made the ТІ BASIC 
program a more appealing simulation of 
real slot machine action than the 
TRS-80 version. 

To summarize, if the program you 
want to convert is a number cruncher 
with few graphics, the conversion should 


20 FOR П=1 TO NI 


50 DX-C3-C2 
160 NEXT 


Translates to: 


20 FOR H=1 TO NI 


34 GOTO 160 


144 С2=10*С1(11)+200 
150 DX-C3-C2 
160 NEXT П 


An Example of Code Translation 
From TRS-80 BASIC to TI BASIC 


130 IF IZ(Il)- -0 THEN PRINT “THIS ITEM 
DROPPED”; ID$: GOTO 160 

40 IF K$=K1$ THEN IF CI(I1)}=0 GOTO 160 
ELSE C2=10*C1(I1)+200 


30 IF 12(11)=0 THEN 140 
32 PRINT "THIS ITEM DROPPED’ ID$ 


140 IF K$=>K1$ THEN 150 
42 IF CI(II)-0 THEN 160 


кз керш солт а сс SS 


go smoothly and result in a TI BASIC 
program which runs with speed roughly 
comparable to its TRS-80 cousin. But if 
the program involves the heavy use of 
graphics, expect to rewrite it. And if 
the program is poorly documented to 
boot, keep a bottle of aspirin handy. 
Furthermore, because of the limitations 
of the TI BASIC IF... THEN... ELSE, 
and the lack of a PRINT AT command, 
you can expect nearly every converted 
program to increase in length. On the 
plus side, however, the extended varia- 
ble names available in TI BASIC make it 
possible to enhance the quality of the 
documentation and structure of the re- 
written program. 

One final note: Tl’s new Extended 
BASIC command module adds the 
PRINT AT and PRINT USING state- 
ments, the capability of controlling up 
to 28 moving objects simultaneously, 
improved IF... THEN. ..ELSE capa- 
bility, and supports true subroutine def- 
inition (a significant aid in structuring 
programs). Although Extended BASIC 
probably won't alter the need for 
rewriting graphics programs, it should 
make the job a lot easier. q 


PLEASE DON'T FORGET TO 
RETURN THE QUESTIONNAIRE 


ON THE FRONT BIND-IN CARD. 
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Battle At Sea... from р. 26 


1290 
1300 
1310 
1320 
1550 
1540 
1550 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1440 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
#1735 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1850 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
. 2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 


08=22 
RETURN 
PR$-S5$ 


CALL HKCHAR (22, 1, 32,64) 
GOTD 2230 
L=LEN(PRS) 
Suss- 
FOR X=1 TO LEN(SUS$) 
SU1$=SEGS (SUS$, X, 1) 


ENTER КОМ, СО. FOR "&STRS(LE)&" SPACES" 


CALL VCHAR (22, Х+2, АБС (GU1$)2) 


NEXT X 

PR&=PR$&" SPACE" 

CALL HCHAR(23,2,32,30) 
FOR X=1 TO LEN(PR$) 
501%=6Е5% (РАФ, Х,1) 


CALL VCHAR (23, X*2, ASC (501%) ) 


NEXT X 
FOR X=1 TO LE 
CALL HCHAR (23, 20,35) 


CALL VCHAR(23,21,LE-X+49) 


CALL KEY(0,«1,ST) 

IF ST=0 THEN 1540 
IF K1<65 THEN 1590 
IF K1>74 THEN 1590 
GOTO 1610 

CALL SOUND (100, -2, 2) 
GOTO 1540 

CALL VCHAR(23,23,K1) 
CALL KEY (0,KE, ST) 

IF ST--1 THEN 1620 
CALL KEY(0,K2, 8T) 

IF ST=0 THEN 1640 

IF K2<48 THEN 1690 
IF К2257 THEN 1690 
GOTO 1710 

CALL SOUND (100, -2, 2) 
GOTO 1440 

CALL VCHAR (23, 24, K2) 
SH(S,X,1)=K1-64 
SH(S,X, 2) =K2~47 


Ж Note 
Line 1735 was inserted as a 
last-minute enhancement 
to the program just prior 
to press time. If you have 
been using the automatic 


NUM mode, please exit it 
{by pressing ENTER) to 
type in this line. Then go 
back into it (NUM 1740,10) 
for convenience in entering 
the rest of the program. 


IF P(K1-64,K2-47) 50 THEN 1590 


P(K1-64,K2-47)75 
NEXT X 
GOSUB 5350 


IF SH(S,1,1)=SH(S,2,1) THEN 1800 


X2=1 

GOTO 1810 

X2=2 

FOR X3=1 TO LE 
Feo 

FOR Xi-1 TO LE-X3 


IF SH(5,X1,X2)-0 THEN 1900 
IF SH(S,X1,X2)4SH(S, X1*1, X2) THEN 1700 


SW-SH(S, X1, X2) 


SH(S. X1, X2) 8H (S, X141, X2) 


BSH(G., X151, X2) 28M 
Fei 

NEXT X1 

IF FzO THEN 1950 
NEXT X3 

FOR X-1 TO LE-1 


IF SH(5,X,1)<>SH(S, X+#1,1)-1 THEN 1970 


NEXT X 
GOTO 2060 
FOR X=1 TO LE-1i 


IF SH(S,X,2)«»25H(S, X*1,2) -1 THEN 2010 


NEXT X 

SOTD 2060 

CALL SOUND(10OO, -2,2) 
FOR X-1 TD LE 


P(GSH(S,X,1), SH (GS, X,2))—O 


NEXT X 

GOTO 1460 * 
Х=5 

FOR Х1=1 TO S 


IF SH(X,X1,1)=0 THEN 2180 
IF SH(X.1.1)28H(X,2. 1) THEN 2120 


OSA=1 
GOTO 2130 
OSA=0 


PC(SH(X,X4,1),SH(X,X4, 2) =X 


IF X>1 THEN 2170 


CALL VCHAR(SH(X,X1,1)+4,SH(X,X1,2) +17, 


95+X1+0S+ ( (LE-1) #OSA)? 


zooo 
3010 
3020 
3030 


GOTO 2180 

CALL HCHAR(SH(X,X1,1)*4, SH(X, X1,2) *17, 
95+х1+05+ CLEXOSA) ) 
NEXT X1 

IF X21 THEN 222 

CALL HCHAR(SH(1,4,1)4+4,SH(1,4,2) +17, 
97+ ({LE-1) #OSA)> 

CALL HCHAR(GH(G,5,1) *4,SHC1, 5,2) +17, 
99+ ({LE-1) 05А) › 
RETURN 

LE=4 

5=1 

GOSUB 2590 

LE-S 

5=2 

GOSUB 2390 

LE=2 

S23 

GOSUB 2290 

LE-2 

5=4 

GOSUB 2590 

LE=1 

5=5 

GOSUB 2590 

GOTO 2610 
X2=INT(RND£2) +1 

IF X2=2 THEN 2440 
X=INT(RND& (10-Е) ) +1 
X1=INT(RND#10) +1 

GOTO 2460 
X=INT(RND&10) +1 
X1=INT(RND&(1O-LE)) +1 
ON XZ GOTO 2470,2540 
FOR YsX TD X4LE 

IF О(Ү,Х1) >20 THEN 2590 
NEXT Y 

FOR Y=X TO X+LE 

OY, X1078 

NEXT Y 

RETURN 

FOR Y=X1 TO X1+LE 

IF O(X,Y)*O THEN 2590 
NEXT Y 

FOR Y=X1 TO X1+LE 
DtX, =S 

MEXT Y 

RETURN 

M1$-"MY SHOT” 

YOUR SHOT" 


*XHITix" 
2780 
FOR V=! TO 7 
CALL HCHAR(18,V*4, ASC(SEGS (M18, V, 100) 
NEXT V 

RETURN 

FOR V-1 TO 9 

CALL НСНАК (21, 7+4, АС (SEDS (М2%, 3,1) ) ) 
NEXT V 

RETURN 

FOR Х=1 TO 5 

CALL HCHAR (18, X+22, АБС (SEG$ (МФ, X, 120) 
NEXT X 

FOR х=: TO 8 

CALL HCHAR(19,X*15, AST (SEGS (MAS, X, 1))) 
NEXT X 

FOR X=1 TO 4 

CALL HCHAR (19, X+26, ASC (SEB$ (MSS, X,1))) 
NEXT X ^ 

Tz1 

IF T-O THEN 2910 

T20 

60TO 5180 

T-1 

CALL HCHAR (21,35, 32,12) 

CALL HCHAR(22,5,52.7) 

GOSUB 2700 

IF W»0 THEN 25350 

RANDOMIZE 

X=INT(1O#RND) +1 

X1=INT(1O#RND) +1 

H=X 

H1i=xt 

IF Р(Х,Х1)=7 THEN 2950 

IF P(X,X1)-6 THEN 2960 

CALL HCHAR(19,6,H+64) 
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f 3930 X3=-1 
| Battle At Sea... SUA X IO 
3040 CALL HCHAR(19,7,H1+47) 3950 IF H+X2>10 THEN 3780 
3050 IF P(X,X1)>0 THEN 4460 3960 IF H+X2<1 THEN 3780 
3060 БОБОВ 3100 3970 IF Hi+X3>10 THEN 3780 
3070 GOTO 2880 3980 IF Hi+X3<1 THEN 3780 
3080 P(X+10,X1)=7 3990 IF P(H+X2,H1+X3)=6 THEN 3780 
5090 CALL HCHAR(23, 1,32, 32) 4000 IF P(H+X2,H1+X3)=7 THEN 3780 
3100 P(X, Xi) = 4010 X=H+x2 
3110 CALL SOUND(200,—5,2) 4020 X1=H1+X3 { 
3120 CALL HCHAR(23,1,32,32) 4030 JF P(X,X1)>0 THEN 4450 
5130 CALL VCHAR(X*4, X1*17,144) 4040 GOSUB 3100 
3140 FOR Y-1 TD 8 4050 GOTO. 2880 
i 3150 CALL VCHAR (25, 12+Y, ASC (SEGS (M7$, Y, 1))) 4060 IF H=10 THEN 4160 
3140 NEXT Y 4070 H=H+1 
3170 RETURN 4080 IF P(H,H1)=7 THEN 4060 
3180 CALL HCHAR (18,3, 32,12) 4090 IF P(H,H1)-6 THEN 4160 
3190 CALL HCHAR(19,3,32,7) 4100 X=H | 
3200 GOSUB 2740 4110 X1=H1 
5210 CALL KEY(O,K1,ST) 4120 IF P(X,X1)>0 THEN 4460 
| 3220 IF ST-O THEN 3210 4130 GOSUB 3100 
230 IF К1<55 THEN 3210 4140 H=H-1 
3240 IF K1>74 THEN 5210 4150 GOTO 2880 
| 3250 CALL VCHAR(22,6,K1) 4160 IF H=1 THEN 4070 
| 5260 CALL KEY(O,KE,ST) 4170 H=H-1 | 
3270 IF ST=~1 THEN 3260 4180 IF P(H,H1)=7 THEN 4160 | 
| 3280 CALL KEY(O.K2,ST) 4190 IF P(H,H1)-6 THEN 4060 j 
| 3290 IF ST=0 THEN 3280 4200 X=H 
3300 IF К2<48 THEN 3280 4210 X1=H1 
3310 IF K2>57 THEN 3280 4220 IF P(X,X1)>0 THEN 4460 
3320 CALL VCHAR(22,7,K2) 4230 GOSUB 3100 | 
| 3330 4240 H-H*i 
3340 4250 GOTO 2880 
3350 IF O(K3,K4)<6 THEN 3390 4260 IF Hi-10 THEN 4360 
3360 CALL SOUND (50,116, 2) 4270 Hi=Hi+1 
3370 CALL HCHAR (22,6, 32,7) 4280 IF P(H,H1)-7 THEN 4260 
3380 GOTO 3180 , 4290 IF P(H,H1)=6 THEN 4360 
3390 IF O(K3,K4)=0 THEN 3500 4300 X=H 
| 3400 CALL SOUND(200,220,2,2530, 2,440,2,—6,2) 4310 XizHi 
| 3410 CALL SOUND ‹400,110,2,220,2,550,2,-8,2) 4320 IF P(X,X1)>0 THEN 4460 
3420 CALL VCHAR (K3+4,K4+5, 136) 4330 GOSUE 3100 
3430 SF=0(K3, K4) 4340 н1=н1-1 
3440 O(K3,K4) =7 4250 GOTO 2880 
3450 CALL HCHAR(23,1,32,22) 4360 IF Hi=1 THEN 4260 
3460 FOR X2=1 TO 7 4370 HisHt-1 
3470 CALL HCHAR (23, 13+X2, ASC (5Е6% (MB$, X2, 100) 4380 IF P(H,H1)=7 THEN 4360 
3480 NEXT x2 4390 IF P(H,H1)=6 THEN 4260 
3490 GOTO 4500 4400 X=H 
3500 CALL SOUND (200, 6,2) 4410 X1=H1 
3510 CALL HCHAR(23,1,32,32) 4420 IF P(X,X1)>0 THEN 4460 
2520 O(KS,KA)-6 4430 GOSUB 3100 
3530 FOR X2-1 TO 10 4440 Hi-Hi*i 
3540 CALL VCHAR (23, 13+X2, ASC (SEGS (M58, X2, 120) 4450 BDTO 2880 
3550 NEXT x2 4460 CALL VCHAR(4+X, 17*X1, 136) 
3560 CALL VCHAR(K3+4,K4+5, 144) 4470 CALL HCHAR (23, 1,32, 32) 
3570 GOTO 2880 4480 GOSUB 2700 
3580 CH=1 4490 FOR 2-1 TO LEN(MBS) 
3590 GOTO 4650 4500 CALL HCHAR (25, 14+Z, ASC (SEGS(MBS,Z,1))) 
3600 CH=0 4510 NEXT Z 
3610 ON SF GOSUB 1110, 1160, 1210, 1260, 1310 4520 CALL SOUND (200,220, 2,330, 2,440, 2,-8, 2) 
3620 IF DS(SF)-LE-1 THEN 3780 4530 CALL SDUND(*00,110,0,220,0,330,0, -B, 0) 
3630 IF H=10 THEN 3670 4540 SF-P(X,X1) 
3640 IF P(H*1,H1)4»7 THEN 3460 4550 CALL VCHAR(19,6, X*64) 
: 3650 IF W»1 THEN 4260 ELSE 4060 4560 CALL УСНАБ (19,7.Х1+47) 
; 3660 IF H=1 THEN 3720 4570 Р(Х,Х1)=7 
| 5670 IF P(H-1,H1)<>7 THEN 3720 4580 H=X 
| 3680 IF W»i THEN 4260 ELSE 4060 4590 Hi-X1 
| 3690 W2-W 4600 FOR X2-1 TO 5 
3700 W=W1 4610 DS(X2)=0 1 
3710 GOTO 3560 4620 
3720 IF H1=10 THEN 3740 4630 TU 10 
1 5750 IF P(H,H1+1)<>7 THEN 3750 4640 FOR X3=1 TO 10 | 
3740 IF W>1 THEN 4050 ELSE 4260 4650 1 THEN 4670 f 
5750 IF Н1=1 THEN 3780 4660 THEN 4720 | 
3760 IF P(H,H1-1)<>7 THEN 3780 4670 IF P(X2,X3)-0 THEN 4760 | 
" 3770 IF W>1 THEN 4060 ELSE 4260 4680 IF P(X2,X5)=6 THEN 4760 | 
: 3780 L1-INT(RND£2)41 4690 IF P(X2,X3)=7 THEN 4750 i 
3790 ON L1 БОТО 38900,3880 4700 DSP (X2, X3) ) =DS(P(X2, XX) 2 +1 i 
3800 X2-INT (RND£2) +1 4710 БОТО 4750 | 
3810 ON X2 GOTO 3820,3850 4720 IF O(X2,X3)-0 THEN 4760 | 
3820 Х2=1 4730 IF O(X2, X3)-6 THEN 4750 | 
3830 X3-0 4740 IF O1X2,X3)=7 THEN 4760 i 
3840 GOTO 3950 4750 DS(0(X2, X3)) -DS (O(X2, X3)) +1 i 
Z850 X2--1 4760 NEXT X3 
3860 X3=0 4770 NEXT X2 : 
3870 GOTO 3950 4780 IF CH=1 THEN 5500 i 
38B0 X3=INT(RND#2) +1 4790 W=0 
5890 ON X3 GOTO 3900,3930 4800 SCORE-O 
4810 FOR Z4-1 TO 5 
4820 ON 74 GOSUB 1110, 1160,1210,1260,1310 
S740: BOLO. S250 Continued on p. 87 
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| Her OTHER PRODUCTS NOW OR SOON AVAILABLE FROM DENALI DATA DESIGN 


| PR R 
* SCREEN GRAPHICS LAYOUT SHEETS (INCLUDING SPRITE DEFINITION GRIDS) 
| * MONITOR SCREEN OVERPLAY (GRID ON CLEAR FILM TO FIND WHERE THOSE CHARACTERS ARE REALLY AT.) 


* CODING SHEETS (BASIC & X-BASIC) 


Бек 
DAT "n * ARTI-STIC'(JOYSTICK ADAPTER) ALLOWS THE USE OF FASTER, SMOOTHER-ACTING, LOW COST, ATARI 


JOYSTICKS ON TI 99/4 & 4A JUST PLUG IN AND PLAY 
* JOYPAO" PLUGS INTO JOYSTICK CONNECTOR ON 99/4 & 99/4A AND ALLOWS DIREC- 
TION & NUMERIC ENTRY IN ONE HAND HELD UNIT. (REQUIRES SUPPORT SOFTWARE — SUPPLIED IN 


DENALI DATA DESIG N BASIC AND X-BASIC ON TAPE OR DISK.) 


ARTI-STIC" 9 PIN & 25 PIN EXTENSION CABLES (SAME PLUGS AS ON JOYSTICK, CASSETTE & RS-232 PORTS.) 


STACKER BUS" (ALLOWS VERTICAL STACKING OF UP TO 4 PERIPHERAL DEVICES.) 
JOYSTICK ADAPTER BACKER BUS" (ALLOWS PLACEMENT OF PERIPHERALS BEHIND CONSOLE.) 


Allows the use of faster, SPLIT-T BOX"(DOUBLE T-SWITCH FOR RS232. ALLOWS FOUR DEVICES TO BE PLUGGED 
smoother-acting, low cost, INTO RS232 WITH HARDWARE SWITCHES TO ELIMINATE THE NEED FOR CABLE- 
Atari" Joystick on TI 99/4 & 4A SWITCHING.) (SOFTWARE SWITCHABLE AVAILABLE LATER THIS YEAR.) 

| JUST PLUG IN AND PLAY F 


$20 postpaid & * CHECK BOOK RECONCILIATION (REQUIRES JOYPAD) 
‘Adapter +2 Atari Joysticks * SCREEN TO EPSON MX80™ BLOCK GRAPHICS DUMP (REQUIRES JOYPAD) 


$35 Dealer SEND OR CALL FOR Toll Free 1-800-654-8499 1413 N. McKINLEY 


Please add $2.00 for shipping Inquiries FURTHER INFORMATION: In OK dial 1-405-524-7764 ОКС, OK. 73106 


{ 
А а 1330 ON (K2-64)GOSUB 5550,5590,5450,5470,5510,5550, |: 
Harried Housewife . . . from p. 28 5590, 5630, 5670, 5710, 5750, 5790, 5830, 5870, S710, 
780 CALL CHAR (157, "О9ОАОСОВОВ" › S950 
790 CALL CHAR (158, "A119070101") 1340 IF CH(2)<>0 THEN 1380 
| 800 CALL CHAR(159,"0") 1350 GOSUB 4430 
| 810 GOSUB 3070 1360 GOTO 1400 
| 20 TIME-O 1370 IF CH(1)=0 THEN 1400 
830 MATCH=0 1380 ON CH(2)GOSUB 2290, 2400, 2480, 2590, 2680, 2770, | 
| 840 DIM HH(16) ,WDRK(16) 2870,2970 
| 850 CALL CHAR (45, "FFFFFFFFFFFFFFFF") 1390 IF CH(1)-CH(2) THEN 1620 
| 860 CALL CHAR(44,"0") 1400 TIME=TIME+1 
| 870 CALL SOUND(4225, 44000, 30) 1410 IF TIMEs10 THEN 1550 
| BBO CALL SOUND (4, 44000, 30) 1420 IF TIME=12 THEN 1440 
890 CALL CLEAR 1430 GOTO 4480 
900 CALL SCREEN(12) 1440 CALL HCHAR(22,2,32, 31 
| 910 CALL COLOR(2,4,9) 1450 DATA 79, 72,32, 78, 79,33, 32,75,73, 68, 83,32, 65, 
| 920 GOSUB 2040 982,59,32,72,79,77,69, 55 
| 930 GOSUB 3370 1460 RESTORE 1450 
940 DATA 72,79,85,83,69,87,79,82,75 1470 FOR Y=3 TO 23 
950 RESTORE 940 1480 READ GR 
960 FOR Y-22 TO 31 1490 CALL HCHAR (24, Y, GR) 
970 READ GR 1500 NEXT Y 
980 CALL HCHAR(2,Y,GR) 1510 GOSUB 2040 
990 NEXT Y 1520 GOSUB 3370 
1000 DATA 77,55,84,67,72,32, 50 1550 TIME=0 
1010 RESTORE 1000 1540 GOTO 4480 
1020 FOR Y=23 TO 29 1550 DATA 83,80,67, 67,68,59, 32,75,73, 68, 83, 32,87, 
1030 READ GR 73,76, 76,32, 66,69, 32,72, 77,7769, 32583, 79, * 
1040 CALL HCHAR (5, Y, GR) 79,78,55 
1050 NEXT Y 1560 RESTORE 1550 
1060 DATA 75,659.94,84,59,82,83 1570 FOR Y=2 TO 31 
| 1070 RESTORE 1060 1580 READ GR 
| 1080 FOR Y=23 TO 29 1590 CALL HCHAR (22, Y, GR) 
| 1090 READ GR 1600 NEXT Y 
| 1100 CALL HCHAR (6, Y, GR) 1610 GOTO 4480 
| 1110 NEXT Y 1620 CALL SOUND(1000, 440,2) 
| 1120 CALL СООК (8,7,1) 1650 Матсн=матсн+ 1 
1150 CALL HCHAR (8, 25,95) 1640 IF MATCH<>1 THEN 1710 
1140 CALL HCHAR(8,27,95) 1650 DATA 70,73,78, 73,83, 72,69, 48,58 
1150 CALL KEY(O,.K1,ST) 1660 RESTORE 1650 
1160 IF K1-83 THEN 1830 1670 FOR Y-23 TO 31 
1170 IF Кі<55 THEN 1150 1680 READ GR 
1180 IF K1>80 THEN 1150 1690 CALL HCHAR(11,Y, GR) 
| 1190 CALL HCHAR(8,25,K1) 1700 NEXT Y 
200 SS=1 1710 X=MATCH+9 
1210 ON (К1-64) 6050В $250,5390,5430,5470,5510,5550, 1720 Y-26 
5590, 5630, 5670, 5710, 5750, 5790 , 5830, 5870, 5710, 1730 ON CH(1)GOSUR 5610, 5700, 3780, 3870, 4030, 4110, 
i 5950 4250, 4340 
| 1220 IF CH(4)<>0 THEN 1250 1740 НН(К1-64) =0 
1250 GUSUB 4430 1750 HH(K2-64) =0 
| 1240 GOTO 1260 1750 IF MATCH<>8 THEN 1400 
| 1250 ON CH(1)GOSUB 2290, 2400, 2480, 2590, 2680, 2770, 1770 рата &7,76,49, 65,78, 32,72,79, 985,83, 69, 33, 33 
| 2870, 2970 1780 RESTORE 1770 
| 1260 CALL KEY(O,K2,ST) 1790 FOR Y=3 TO 27 STEP 2 
1270 IF K2=83 THEN 1830 1800 READ GR 
1280 IF K2«65 THEN 1260 1810 CALL HCHAR (24, Y, GR) 
1290 IF K2»80 THEN 1260 1820 NEXT Y 
1300 IF K2-K1 THEN 1260 1830 CALL HCHAR(8,25,83) 
1310 CALL HCHAR(8,27,K2) 1840 GOSUB 3570 
1320 SS=2 
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Harried Housewife . . . 


1850 FOR S=1 TO 16 

1860 SS=3 

1870 ON S БОБОВ 5350,5390,5430, 
5470,5510,5550,5590, S630, 
53670,5710, 5750, 5790, 5830, 
5870, 5710, 5950 

1880 ON CH(SS)GOSUB 2290, 2400, 
2480, 2590, 2680, 2770, 2870, 
2970 

1890 NEXT 5 

1900 CALL HCHAR(21,3,32,5) 

1910 CALL HCHAR (22, 2, 32,31) 

1920 IF MATCH<>8 THEN 1970 

1930 FOR X=2 TO 8 

1940 CALL HCHAR(X,23,22,9) 

1950 NEXT X 

1960 GOTO 2030 

1970 DATA 72,79,85,85,69,87,79, 
82,75, 32, 78, b9, 86, 69, 82,32, 
69,78, 68, B3, 33 

1980 RESTORE 1970 

1990 FOR Y=3 TO 23 

2000 READ GR 

2010 CALL HCHAR(24,Y,GR) 

2020 NEXT Y 

2030 GOTO 2030 

2040 FOR Z=1 TO i! STEP 10 

2050 FOR TO 2+4 

2060 FOR Y-2 TO 12 STEP 10 

2070 CALL SOUND(100,1047,2) 

2080 CALL HCHAR(X, Y, 43, 5) 

2090 CALL HCHAR(X,Y+S, 44,5) 

2100 CALL SDUND(100,523,2) 

2110 CALL HCHAR(X*5, Y, 44,5) 

2120 CALL HCHAR(X+5, Y+5, 43,5) 

2130 NEXT Y 

2140 NEXT X 

2150 NEXT 2 

2160 DATA 3,4,3,9,3, 14,3, 19,8,4, 
8,9,8,14,8,19,13,4, 12,9, 13, 
14,12,19,18,4,18,9,18, 14, 
18,19 


2170 RESTORE 2160 

2180 FOR CC=45 TO Во 

2190 READ X,Y 

2200 CALL HCHAR(X,Y,CC) 

2210 NEXT CC 

2220 CALL HCHAR(21,3,83) 
2250 CALL HCHAR(21,4,61) 
2240 CALL HCHAR(21,5,83) 
2250 CALL HCHAR(21,5,84) 
2260 CALL HCHAR(21,7,79) 
2270 CALL HCHAR(21,8,80) 
2280 RETURN 

2290 CALL HCHAR(X-1,Y,96) 
2300 CALL HCHAR(X-1,Y-1,103) 
2510 CALL HCHAR(X-1,Y*1,97) 
2320 CALL HCHAR((Q,Y-1,98) 
2550 CALL HCHAR(X,Y.99) 

2340 CALL HCHAR(X,Y*1,100) 
2350 CALL HCHAR(X*1,Y-1,101) 
2560 CALL HCHAR(X*1,Y, 102) 
2370 CALL HCHAR(X*1,Y*1,103) 
2380 GOSUB 3650 

2390 RETURN 

2400 CALL HCHAR(X-1,Y-1,104,2) 
2410 CALL HCHAR(X, Y, 109) 
2420 CALL HCHAR(X-1,Y*1,105) 
2430 CALL HCHAR(X,Y-1, 104) 
2440 CALL HCHAR(X,Y*1,107) 
2450 CALL HCHAR(X-*1,Y-1,1098,2) 
2460 GOSUB 3740 

2470 RETURN 

2480 CALL HCHAR(X-1,Y-1,112) 
2490 CALL HCHAR(X-1,Y,113) 
2500 CALL HCHAR((X-1,Y*1,114) 
2510 CALL HCHAR(X,Y-1,115) 
2520 CALL HCHAR(X,Y, 116) 
2550 CALL HCHAR(X,¥+1,117) 
2540 CALL HCHAR(X+1,Y-1,119) 
2550 CALL HCHAR(X+1,¥+1, 119) 
2560 CALL HCHAR(X+1,7, 118) 
2570 GOSUB 3820 

2580 RETURN 

2590 CALL HCHAR(X-1,Y-1,120) 
2600 CALL HCHAR(X-1,Y,121) 
2610 CALL HCHAR(X-1, ¥+1, 122) 
2620 CALL HCHAR(X,Y-1,122) 
2650 CALL HCHAR (X,Y, 124) 


2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2990 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3190 
5110 
5120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
S310 
3320 


3330 


CALL HCHAR(X,Y+1, 125) 
CALL HCHAR (X+1, Y-1, 126, 3) 
Б050В 3980 

RETURN 

CALL HCHAR(X,Y-1,128) 
CALL HCHOR(X-1,Y-1,133,2) 
CALL HCHAR(1,Y*1,133) 
CALL HCHAR(,Y,129) 
CALL HCHAR(X, Y*1, 130) 
CALL HCHAR(X*1,Y-1,131) 
CALL HCHAR(X+1,Y, 132) 
GOSUB 4070 

RETURN 

CALL HCHAR (x-1, Y-1, 136) 
CALL VCHAR (X~1, ¥+1, 142,2) 
CALL HCHAR(X*1,Y-1,142) 
CALL HCHAR(X-1, Y, 137) 
CALL HCHAR(X, Y-1, 158) 
CALL HCHAR(X,Y, 139) 
CALL HCHAR(C*1, Y. 140) 
CALL HCHAR(X*1,Y*1,141) 
GOSUB 4210 

RETURN 

CALL HCHAR(X-1,Y-1,144) 
CALL HCHAR(X-1,Y, 149,2) 
CALL HCHAR(X+1, Y, 149) 
CALL HCHAR(X,Y-1, 145) 
CALL HCHAR(X,Y, 145) 
CALL HCHAR (X, Y*1,147) 
CALL HCHAR(X+1, Y-1, 148) 
CALL HCHAR(X*1, Y*1, 148) 
GOSUB 4290 

RETURN 

CALL HCHAR(X-1,Y-1,152) 
CALL HCHAR(X-1,Y, 153) 
CALL HCHAR(X-1, Y*1,154) 
CALL HCHAR(X, Y-1,155) 
CALL HCHAR(X, Y, 156) 
CALL HCHAR(X+1, Y~-1, 157) 
CALL HCHAR (X+1,Y, 158) 
CALL VCHAR(X, Y+1, 159, 2) 
GOSUB 4380 

RETURN 

X=3 

Y=5 

GOSUB 2290 

X24 

Y=16 

GOSUB 2400 

Y=27 

GOSUB 2480 

x-8 

Yz7 

GOSUB 2590 


2870 


Y=6 
SOSUB 2970 

CALL SOUND (300, 494,2, 195, 7) 
CALL SOUND (200, 440,2) 

CALL SOUND (200,392, 2) 

CALL SOUND (300, 440, 2, 185, 8) 
CALL SOUND(200,292,3) 

CALL SOUND (200,570, 3) 

CALL SOUND (1000, 372, 3, 165,9) 
RETURN 

FOR 2=1 TO 8 

WORK (2) =Z 

WORK (2+8) =2 

NEXT 2 

RANDOMIZE 

FOR R=1 TO 16 

RR=INT (16SRND) +1 

IF WORK(RR)=0 THEN 3430 
HHR) =WORK (RR) 

WORK (RR) =O 

NEXT R 

FOR R=1 TD 16 

WORK (R) =HH (R) 

NEXT R 

MATCH-O 

FOR х=11 TO 18 

CALL HCHAR(G,22,32,9) 

NEXT X 


3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3670 
3700 
3710 
3720 
3730 
3740 
3750 
3740 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
5980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
A130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4290 
4400 
4410 
4420 
4430 
4440 


CALL HCHAR(24,3,32,22) 
RETURN 

FOR R=1 TO 16 

HH CR) =WORK CR) 

NEXT К 

RETURN 

CALL COLOR(9,15,7) 
CALL COLOR(9,7,15) 
CALL COLOR(9,15,7) 
CALL COLOR(9,7,15) 
CALL HCHAR(X+2, Y~1, 68) 
CALL HCHAR(X*2, Y, 85) 
CALL HCHAR (X+2, Y+1, 83) 
CALL HCHAR (X+2, ¥+2, 84) 
RETURN 

CALL COLOR (10,12, 13) 
CALL COLOR(10,13,12) 
CALL COLOR (10, 12,15) 
CALL COLOR(10,13,12) 
CALL HCHAR (X+2, Y-1, 83) 
CALL HCHAR(X+2,¥,69) 
CALL HCHAR(X+2, ¥+1, 87) 
RETURN 

CALL COLOR(11,11,14) 
CALL COLOR(11,14,11) 
CALL COLOR(11,11,14) 
CALL COLOR (11,14,11) 
CALL HCHAR (X+2, Y-1,87) 
CALL HCHAR(X*2, Y, 65) 
CALL HCHAR(X+2, Ү+1, 85) 
CALL HCHAR (X+2,Y+2, 72) 
RETURN 

CALL COLOR (12,3,16) 
CALL COLOR(12, 16,3) 
CALL COLOR (12,3, 16) 
CALL COLOR(12,16, 3) 
CALL HCHAR (X+2, 25,68) 
CALL HCHAR (X+2, 26,73) 
CALL HCHAR(X+2, 27,83) 
CALL HCHAR (X+2, 28,72) 
CALL HCHAR(X+2,29,69) 
CALL HCHAR(X+2, 30, 83) 
RETURN 

CALL HCHAR(X*2, Y-1,68) 
CALL HCHAR(X*2, Y, 73) 
CALL HCHAR(X*2, Y*1,83) 
CALL HCHAR(X*2, Y*2, 72) 
RETURN 

CALL COLOR(13, 12,7) 
CALL COLOR(13,7,12) 
CALL COLOR(13, 12,7) 
CALL COLOR(13,7, 12) 
CALL HCHAR(X*2,Y-1,67) 
CALL HCHAR(X*2, Y,79,2) 
CALL HCHAR(X*2, Y*2, 75) 
RETURN 

CALL COLOR(14,8,5) 
CALL COLOR(14,5,8) 
CALL COLOR(14,8,5) 
CALL COLOR (4,5,9) 
CALL HCHAR(X+2, 25,86) 
CALL HCHAR (X+2, 26,65) 
CALL HCHAR(X+2, 27,67) 
CALL HCHAR (X+2, 28,85, 2) 
CALL HCHAR(X+2, 30,77) 
RETURN 

CALL HCHAR(X*2, Y-1, 86) 
CALL HCHAR(X+2,Y, 55) 
CALL HCHAR(X*2, Y*1,57) 
RETURN 

CALL COLOR(15, 16,15) 
CALL COLOR(15, 15, 16) 
CALL COLOR(15,16,15) 
CALL COLOR(15,15,16) 
CALL HCHAR (X+2, Y-1,83) 
CALL HCHAR (X+2,¥, 72) 
CALL HCHAR(X*2, ¥+1,79) 
CALL HCHAR(X*2,Y*2,80) 
RETURN 

CALL COLOR (16, 16,3) 
CALL COLOR(16,3,16) 
CALL COLOR (16, 16,3) 
CALL COLOR (16,3, 16) 
CALL HCHAR(X+2, Y-1, 73) 
CALL HCHAR(X*2, Y,82) 
CALL HCHAR (X+2, Y*1,79) 
CALL HCHAR (X+2, Y*2, 78) 
RETURN 

CALL HCHAR(X, Y-1,68) 
CALL HCHAR (X,Y, 79) 


Continued on p. 87 
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ON-LINE 
INFORMATION 
RETRIEVAL 


This article has been excerpted from 
Information Brokering : A State-of-the-Art Report, 
By Gary M. Kaplan, Copyright 1980 & 1981, 

raid Valley Publishing Co., Eugene, OR. 


Why Use It? 


Computerized information retrieval—a fairly recent development 
that didn't achieve widespread acceptance until the late 1970's—is un- 
doubtedly the most important factor in the emergence of information 
brokering as a viable business opportunity for most of its current practi- 
tioners (the database search specialists, mentioned earlier), It is a fast, 
cost-effective method for retrieving bibliographic references, full text 
documents and files, and numerical data—all of it on an extremely di- 
verse range of topics. Although the process goes by a variety of names— 
i.e., online searching, computer-assisted literature searching, online re- 
trieval, on-line bibliographic searching, on-line non-bibliographic search- 
ing, computer database searching, etc, — the principal facts are that: 


* The process takes a fraction of the time of searching by manual 
methods, is less tiring, and is often cheaper in terms of a re- 
searcher's time, 

* The electronic databases are usually more comprehensive, more 
deeply indexed, and more frequently and readily updated than 
their printed counterparts. 

* An on-ine interactive search can be re-directed (expanded or 
narrowed) instantly on the basis of results coming in. 

* Gertain strategies (combining terms and concepts with Boolean 
operators, explained later) that are possible with a computer 
search are difficult or impossible with manual methods. 

* Searching can be done from the convenience of your own home 
or office, or even a client's office (if you have a portable termi- 
nal) through a simple hook-up to virtually any telephone. 


Types of Databases 


7. Bibliographic Databases — are the "machine-readable" (searchable by 
computer) counterparts of printed abstracts and indexes, but are not as 
limited in size or flexibility. They contain references to (and sometimes 
brief summaries of) "the literature" of numerous fields. Armed with 
the appropriate references (periodical names, issue dates, and article ti- 
tles/authors/pagination) on specific topics of interest, it's an easy mat- 
ter to get copies of the actual articles that contain (hopefully) the in- 
formation wanted. (In fact, some vendors are now offering the option 
of ordering printed or microfilm documents and articles while on-line, 
directly from the searcher's terminal—providing quick access to a 
“library” of literally millions of separate titles in а full spectrum of di- 
verse subject areas. Additionally, there's a substantial time savings: By 
typing in the order and shipment information yourself, right after iden- 
tifying the relevant titles on-line, the order gets immediately routed to 
the appropriate document delivery service. You pay this delivery service 
а set fee per document (which you can mark up and charge your clients 
that request this additional service) and typically cut a week from the 
normal delivery time. 


2. Numeric Databases — are the machine-readable counterparts of hand- 
books and tables, but are not as limited in currency, accuracy, and com- 


pleteness. These types of files carry information which is useful in and 
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of itself; they are not surrogates which point to other documents (al- : 
though some do indeed refer a search to other sources). Data may also 3 
be manipulated on-line to do analyses, generate reports, and make pre: E 
dictions. Most of these databases are in the areas of business, finance 


and economics (e.g., value of product shipments, manufacturing data, 


securities and exchange rates, forecasts, and currency exchange rates}. Ё 


There are some databases in the social sciences and humanities contain- 
ing demographic information (e.g., census statistics). Presently, not very 


many numeric databases in science and technology are publicly availa E 


ble. 


3. Referral Databases — are the machine-readable counterparts of direc- j 
tories; they provide references to individuals, institutions, and projects E: 
with “know-how” availability or need. These files are usually much Ẹ 


more current than printed versions since they are easier to update at 
much shorter intervals, 


4. Miscellaneous Databases — that don't fall under the three Previous E. 
groupings аге in areas such as regulatory, legislative, and judicial deci-E 


sions and status reports, as well as charts and maps. 


Note: 

Several directories containing descriptions of the individual databases otf 
these four groups are avaitable in most libraries that perform on-line 
searches. Ask to see (1) Computer-Readable Data Bases : A Directory 
and Data Sourcebook , (2) Directory of On-Line Information Resources, 
or (3) Directory of Online Databases. 


The Power of Boolean Logic 


Most on-line search systems use Boolean (named after 19th centu: 
ry mathematician George Boole) operators. These are simply the basic 
combining operations performed on groups of documents or articles by! 
the three symbols AND, OR, and NOT. The best way to illustrate the| 
power of these search operators is to show their effects on different; 
search terms through simple diagrams (called Venn diagrams). In all of 
these that follow, the shaded portions represent the items that are ret 
trieved as a result of the combination. 


(1) The AND operator retrieves the articles that have both children(C) 
and the consumption of milk(M) in common (e.g., the title “Consump: 
tion of Milk in Pre-school Children"). 


M AND C 


(2) The OR operator retrieves the articles that may or may not have 
children(C) and consumption of milk(M) in common (e.g., the title 
"Milk Sales Are Up 9% From Last Year” and "Public School Enroll: 
ment Declines’ are both retrieved but have no common elements). 

M OR C 


OO QD 


No common elements Some common elements 


(3) The AND NOT operator retrieves the articles that have to do with; 
consumption of milk(M) but that also simultaneously exclude thos 
with specific references to children(C) — e.g., "Adults Drinking 150% 
More Milk Than A Decade Ago.” 


M AND NOT C () 


oo 


Now if we want to make the search more specific, let’s say that we need 
articles concerned with cases of milk poisoning in children (where poi- 
soning is represented by "'P") the Boolean operators would be 

M AND C ANDP 
The small shaded area in the center represents the retrieved articles. 


In this case, of course, you could do the search manually — i.e., through 
scanning the appropriate printed indexes — and might be able to retrieve 
a few articles related to this topic before fatigue set in. But consider the 
following search in the field of medicine, where a client needs to know 
the effects of blood coagulation disorders on heart disease in children. 
Here, you could just check printed indexes for the three subject head- 
ings "blood coagulation disorders,” ''heart disease," and “children,” 
and hopefully you'd find something. But if your client needed (and ex- 
pected) a// relevant information (to the extent that “all” is possible), 
you'd need to expand the search terms to include the other subject 
headings given in the cross references, Take for example: 


Blood coagulation disorders (B1) heart disease (H1) 

See also: see also: 
anticoagulants (B2) cardiac arrest (H2) 
blood disease (B3) cardiology (H3) 
blood coagulation (B4) cardiovascular disease (H4) 
blood platelets (B5) heart auculation (H5) 
blood viscosity (B6) children (C1) 
hematologic diseases (B7) see also: 
hemmagglutination (B8) infants (C2) 
hemostatics (B9) 
thrombocytes (B10) 


Here, you'd have to check under 17 subject headings in the printed in- 
dex (B1 to B10, plus H1 to H5, plus C1 & C2) and find all the journal 
articles that are related to 700 possible combinations (10x5x2-100) of 
the 17 headings. 

These are combinations such as 

B1 & H1 & C1 (blood coagulation disorders, heart disease, & children) 
B2 & H1 & C1 {anticoagulants, heart disease, & children) 

B8 & H2 & Ct (hemmagglutination, cardiac arrest, & children) 

B10 & H5 & C2 (thrombocytes, heart auculation, & infants) 

plus 96 other combinations to search for! 


I think you can start to see how a computer search with Boolean 
operations can handle this awesome task much more effectively. After 
entering all the subject headings, you would command the computer to 
combine and search for the 100 expanded terms according to the fol- 
lowing logic : (B1 OR B2 OR B3 OR B4 OR B5 OR B6 OR B7 OR B8 
OR B9 OR B10) AND (H1 OR H2 OR H3 OR H4 OR H5) AND (C1 
OR C2). Then, in a flash, the computer at the other end tells you how 
many “hits” (articles) it found in the database, You can command it to 
list these titles and then decide for which ones you'd like the complete 
bibliographic citations (and abstracts, if available) printed out—either 
on your terminal/printer, or on their high-speed printer and mailed to 
you (a much cheaper option if the list is lengthy and the delivery time 
isn't critical). In effect, the computer has produced a very specialized 
and comprehensive reading list that a human working with manual 
methods alone, couldn't likely duplicate, 


Note : 

Interested readers who would like to kñöw more about 
the field of information brokering may purchase the complete 
spiral-bound monograph from which this article has been 


excerpted (/nformation Brokering: A State-of-the-Art Report) 
for the special reduced. price of $7. (Regular price is $10.) 
For postage information, see the bound-in order card in the 
back of this magazine, 


Ф QUESTION 


What articles arc available on attitudes toward hiring the handicapped? 


FILE (nrorm) Маны of dlifabase 


SS 1 ALL HANDICAP:/IT (118) 
SS 2: ALL HIR: OR ALL EMPLOY: OR ALL PLAC: (20704) 


SS 3 ALL ATTITUD: (3087) ( 
SS 4. 1 AND 2 AND 3 (4) 
Noel of artela tts 
Haine the 


t aol Nuwber shanties found (4) 


proe. 
CPRT TI 4) 4 Мон, condan tack 
brevem o Eo m 


=: рсн j 
Tag ve semek Ына Э тулта) р 
Command. to prmt +a tities of the Hants 


TI- EMPLOYEE SERVICES - A STUDENT PERSPECTIVE 


ТІ. IBM CALLED EXCEPTION - DP INDUSTRY HIT FOR ATTITUDE: 
ON HANDICAPPED 


TI- NOT ALL ILLNESSES ARE HANDICAPS Ahd 
T!- TOTAL PERSON TRAINING 


SS 6/0 
USER 


and Ya print Pull утаат 
Sct ns hat оу Pie 


A Sample On-Line Search 


AN 77:05588 

Ti - IBM CALLED EXCEPTION - DP INDUSTRY HIT FOR ATTITUDE 
ON HANDICAPPED 

AU - WISEMAN, TONI 

so COMPUTERWORLD (CMPWAB, COW), V11 N14, P15, ISSN 0010-4847 


APR. 4, 1977 
nut id 


от J (JOURNAL) 

LA ENGLISH 

т ADDITIONS: AREAS; CASES; COMPANIES; COMPUTER PROGRAM 
MING: COMPUTERS; COSTS: DEAFNESS; DISABILITIES; EMPLOYERS. 
EXCEPTIONS, FIRMS; GOVERNMENT; HANDICAPPED, IBM-ARMONK 
МҮ, INDUSTRIES; MANAGEMENT; MANUFACTURERS, NEGATIVE; 


NOISE; PROGRAMMERS; SOLUTIONS; USERS abstr 
б 20 


AB - WITH ONE EXCEPTION, THE DP INDUSTRY - BOTH USERS AND 
MANUFACTURERS - HAS DONE VERY LITTLE IN THE AREA OF 
EMPLOYING THE HANDICAPPED. IBM ALONE HAS BEEN ‘IN THE 
FOREFRONT’ ALMOST FROM (TS INCEPTION AS AN EMPLOYER 
OF THE HANDICAPPED. IN THE CASE OF SOME COMPUTER СОМ. 
PANIES THERE HAS BEEN ALMOST A NEGATIVE REACTION, A 
FEELING OF ‘I'M NOT GOING TO DO ANYTHING UNTIL THE 
GOVERNMENT FORCES ME TO." IN MANY CASES, HOWEVER, IT 
IS THE DISABILITY WHICH MAKES THE HANDICAPPED PERSON 
SUITED TO A JOB. A DEAF PERSON, FOR INSTANCE, WAS THE 
IDEAL SOLUTION TO ONE COMPANY'S NOISE PROBLEM IN ITS 
BURSTING ROOM. THE OPERATOR WAS TRAINED TO DO THE 
JOB AND THE FIRM SAVED THE COST OF INSTALLING SOUND 
PRODFING. DEAF PEOPLE ARE ALSO LESS DISTRACTED BY 
OTHER NOISES AND HAVE BEEN SHOWN TO HAVE A HIGHER 
PROGRAMMING OUTPUT THAN PROGRAMMERS WHOSE HEARING 
IS UNIMPAIRED. IN ADDITION, ACCORDING TO THE LAW, THE 
HANDICAPPED PERSON MUST ALSO BE HIRED IN THE MANAGE 
MENT AREA. 
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SPIKE-SPIKERS.. 


Protect-Control-Organize 
Computer & Peripheral Equipment 
Helps prevent software “Glitches” 

and unexplained memory loss 


PROTECTS against power 
line transients & filters 
out RFI "Hash" 

CONTROLS with 8 indi- 
vidually switched 120 vac 
grounded outlets. 2 separ- 
ate filtered circuits. 

Deluxe Power Console QRGANIZE your computer 


& peripheral equipment 

79.95 power cords individually 
or main on/off switch-fuse 
& indicator light. 


Also available in 2-socket wall mounted models. 


MINI-I MINF-II 


| Simple Techniques 
Provide= SPEED= 


* DYNAMIC FULL SCREEN GRAPHICS 
* REALISTIC SOUND EFFECTS 
Ф 3 FAST FUN GAMES * 

1) LASER WARS—Zap alien saucers with a laser 
beam—for one player. 

2)RACING-You drive the speedster. If you 
reach the checkered flag, did you beat the high, 
score? Every’ game is different and you can 
customize the track for even more variety. 

3) WRAP—(requires Joysticks)—you'll enjoy this 
fast paced game. One, two, or “three” players. 


17 years combined experience 
went into analysis, design, programming, 
testing, and documenting these games. 


SPECIAL OFFER Transient absorber Transient absorber 
All 3 games $9.95 cassette California orders ps REI Haah filtering 
$13.95 disk add 6% tax 34.95 44.95 


Send cash, check, or money order to 


Kemp Software, TI Games Group 
3292 Mission Blvd. 
San Diego, CA 92109 


5 Order Factory Direct 
KAO riectronics Co. Inc. муе 


Colony Drive Ind. Park 215-865-0006 
6584 Ruch Rd., Dept. 99. m Out of state call toll free 
Bethlehem, PA 18017 ay 800-523-9685 
ealers Invited 
PA Res. add 696 


Cassette Compatibility At Last! 


If The TI-99/4 Will Not 
Control Your Cassette 


Recorder Through 
Its Remote Jack, We Have The Solution For You... 


cr The TI-SETTE Adapter 


* Quickly connects between the black lead on the TI Dual Cassette 
Cable and your recorder's remote jack to establish compatible 
polarity. 


* Low cost — Only $3.50 plus 75 cents postage & handling. 


a 


= 1 TI-SETTE 
EF wA E l= is necessary for this 


INNOVATIVE PRODUCTS program’s proper 
POR TMSF BASED К cassette file operation if 
your recorder's remote 
P. O Box 5537, Eugene, Oregon 97405 lead doesn't work. 
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The Home Secretary 


Computerized Filing 
and Telephone Dialing 


By Malladi V. Subbaiah 


Post-Doctoral Research Fellow 
Department of Mechanical Engineering 
301-46 CALTECH, Pasadena, CA 91125 


bly been looking for ways to use it around the house. 

When writing software for home applications, it's often 
possible to create a general program that functions in a vari- 
ety of household situations. The program accompanying 
this article follows this design philosophy. With it, you can 
create a personal phone and address directory, time events 
(such as elapsed telephone connect time), have your com- 
puter dial or redial any number in your directory, and set 
up an inventory of household possessions for insurance and 
maintenance purposes. All this in standard 16K TI BASIC 
—with some room to spare for customizing the program 
according to your preference. 


Ni that you have a personal computer, you've proba- 


GENERAL DESCRIPTION OF THE PROGRAM 


Data Entry 

When the program is first RUN, the screen options give 
a user the choice of updating or using a previous data file 
saved on cassette or disk, or creating an entirely new data 
file for one of two options: (1) the phone and address di- 
rectory, or (2) the houshold inventory. Both of these op- 
tions also provide sub-options: For example, the program 
can draw on the data files to dial (by the dual-tone method) 
an appropriate phone number, sum the total cost in the in- 
ventory, and print hardcopy listings of each. The category 
names for the file organization are provided in the data 
statements 220 and 230. 

The input data is stored in the arrays A1$, A2$, A3$, 
A4$ and А5$. A dimension of 60 is assigned to each of the 
arrays, and a maximum string length of 190 characters is 
allowed for each complete entry. Line 710 checks the validi- 
ty of each data set. At this stage, the program also checks 
for dimension overflow and memory overflow (lines 480 
and 810), and appropriate warning messages are displayed. 
These protection features prevent accidentally keying in 
excess data—a situation that would result in an error and 
program termination. Additionally, the cost category (A2$) 
in option 2 is designed to accept only numerical input so 
that you can conveniently carry out numerical operations 
on the data—for example, the total cost of possessions. And 
keep in mind that you can, of course, change the categories 
by altering the data in lines 220 and 230. 


Sort Routine: 

An efficient sort subroutine is presented in the program 
at line 2410. The routine employs a tree sort procedure 
which needs approximately 2*N*(LogaN-1) comparisons 
to sort N entries. Since various versions of sorting routines 
have been previously published and are readily available 
[see for example, reference no. 2 at the end of this article, 
or any elementary book on numerical analysis], | won't 
discuss the mathematical details of the sorting procedure. 
Here, the sorting is based on the entries in the arrays A1$ 
(i.e., names or items in the default categories). The remain- 
ing arrays are appropriately rearranged to be consistent 
with the original data. The procedure is carried out without 
the use of any intermediate arrays, thereby saving on the 
core usage. Complete sorting and rearranging of 50 entries 
takes about 4 minutes. 


Data Deletion and Alteration 

The subroutine at line 1010 updates any existing data 
set. You can access any particular entry by its serial number 
or by its name (or a segment of it). A search routine (line 
1790) retrieves the data set with the specified name, or the 
next higher one if the name match is not exact. As previous- 
ly described, validation of the altered data for allowable 
string length and memory overflow are carried out. At this 
stage, you have the option to move up or down in the list, 
search for a different entry, or finish the editing session. Any 
alteration of the entry title {i.e AT$) causes the variable 
FLAG2 to be set equal to unity. This causes resorting of 
the data set before the directory can be displayed. 


Display of the Directory 

The program allows you to display the data directory in 
two formats. In the first format (at line 1420), a concise, 
quick-reference listing of the complete directory is provided. 
This includes name and phone number for the phonebook 
option, and item and cost for the inventory option. 

In the second format, you can display all the data con- 
tained in any single entry. Access to individual entries is 
either by its serial number in the directory, or by a string 
search as discussed in the previous section. 

Additionally, you can get a hardcopy listing of the entire 
directory (line 4280) through an RS232-compatible printer, 
or the TI thermal printer. The screen printing routine at 
line 4150 was used to get a hardcopy print-out of screen 
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KILL 
SURGES 
LIKE 
LIGHTNING! 


AC power line surges are destructive, can cost you 
money, and can’t be prevented. But you can stop 
them from reaching your sensitive electronic equip- 
ment with a Surge Sentry. 

Surge Sentry acts in picoseconds to dissipate up 
to a 1,000,000 W, 1004 second surge. Triggers at 
10% above nominat peak voltage. Works in parallel 
with the power line. Is easy to install for immediate 
protection. No complicated wiring or special tools 
required. 

Several different models to choose from, including 
an OEM version. Call or write today for afree brochure. 


cURGE 
abb Y 


It'll clean up your AC 


RKS 
ENTERPRISES, INC. 
643 South 6th Street, San Jose, CA 95112 
(408) 288-5565 


DEALER INQUIRIES INVITED 
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displays for this article. This portion (lines 4150-4260) can 
be deleted without affecting the operation of the program. 


Computerized Phone Dialing 

Now let's look at how we can get the TI-99/4 to do 
Touch Tone dialing. Since the telephone company prohibits 
direct connection of any unapproved (by the FCC) user 
equipment to the phone line, the method we will have to 
use involves proximity: Dialing of the phone is accomplished 
simply by placing the microphone of the phone handset in 
front of the monitor speaker, without any direct connec- 
tion to the phone lines. 

Briefly, the Touch Tone system of telephone dialing op- 
erates by sending a specific pair of audio frequency tones 
over the voice channel of the phone line for each digit. The 
switching circuits at the telephone facility decode the tones 
and operate the appropriate circuits to make the connec- 
tion. The tone pairs consist of a low frequency group (697 - 
941 Hz) and a high frequency group (1209 - 1477 Hz) as 
shown in Figure 1. For example, to dial the number 5, we 
have to send the audio tones at 770 Hz and 1336 Hz simul- 
taneously for a sufficiently long time to be recognized by 
the switching circuits, Also, there should be a sufficient gap 
between digits to have' each digit registered individually. Al- 
though a 40 millisecond signal duration followed by a 40 
millisecond silence should theoretically be adequate, | ob- 
served that a 150 - 200 millisecond signal duration and a 
gap of about 100 - 150 milliseconds is required for reliable 
operation with this system. E 

With the CALL SOUND (duration, frequency 1, volume & 
, frequency 2, volume 2) command of TI BASIC, the $ 
TI-99/4 can generate the dual tones of Figure 1. In doing E 
this, however, an interesting problem arises: If we examine $ 
the monitor's output on an oscilloscope, we can observe 
that the so called ‘‘pure tone" from the computer is, in 
act, a square wave and is not a sine wave. By Fourier analy- # 
sis, the square wave can be decomposed into its constituent 
sine waves. (Interested readers can refer to any elementary E 
ook of calculus for the details of the analysis.) To be spe- 
cific, the output from CALL SOUND (100, 500, 1) is аф 
square wave of 500 Hz for a 100 millisecond duration at # 
the volume level 1, This is a combination of sine waves at § 
500 Hz, 1500 Hz, 2500 Hz and so on. This can pose a prob- 
em when we try to dial the first two members (i.e., 697 Hz ф 
and 770 Hz) of the low frequency group. The third har- E 
monics of these frequencies, namely, 2091 Hz and 2310 Hz, 
are also recognized by the switching circuits, resulting in 
the rejection of the signal. The third harmonics of 852 Hz 
and 941 Hz seem to be outside the frequency response of $ 
the switching circuits and pose no problem. 

There are several ways we can overcome this problem of 
dialing the digits 1 thru 6. One very simple and inexpensive $ 
way is to use a passive low-pass filter with a cut-off frequen: і 
cy of about 1.5 KHz in the audio line to the monitor, there- £ 
by attenuating the higher frequencies. Figure 2 shows af 
block diagram for the installation. The circuit for the filter 
which I built for under five dollars is shown in Figure 3. 


HOW TO USE THE PROGRAM 


Initial Set-Up 

With a choice of N (for NO) for the LOAD DATA? op- 
tion in Display 1, the program has you select either the 
Phone Directory or Household Inventory option. (If уошё 
choice was Y, and you loaded a file, one of the data ele- + 
ments on the file tells the program which option to branch. 


to.) The data file is then keyed in, guided by the input ^ 


prompts. The phone number can be entered with spaces 
and parentheses, if desired. The most recent entry can be re- 
entered by pressing R for the name (or item). You can termi-¢ 
nate by pressing E or END; this causes the data to be sorted 
and returns you to the master selection list (Display 3). 


High Frequency 1209 1336 1477 
Low Frequency Group 
Group 


697 Hz 
770 Hz 
852 Hz 
941 Hz 


‘ Figure 1. Basic Frequencies for the Two-Tone System 


of Telephone Dialing Our second TI Games Package 
for your 99/4 


Low Poss • Eliza — Our version of the classic Artificial Intelligence 
Filter program. Allows the computer to play psychotherapist. 
Responds to plain English input. 
e ТІ Poet — Turns your computer into a poet who writes a 
seemingly endless variety of poems on a given theme. We 
EN - show you how to program your own poet. The possibilities 
Video In are unlimited! 


» Electron — A space age Black Box® . Electron rays are 


Ti-99/4 
ТІ Monitor Console absorbed, reflected or deflected as you try to locate the 
Ф invisible neutron target іп а sealed chamber 
All three for just 
Figure 2. Schematic Layout of Filter Location $9.95-Tape (GT-02) $14.95-Disk (GD-02) 
100 OHMS 10 Milli Henry 10 Milli Henry 
; Signal s 
Signal 400 OHMS Output COMING SOON More software from TImore to transform 
Input 2 Micro Farads your TI99/4 into the ultimate machine of the 80's. Great 
КОЗ graphics in ТІ BASIC or super graphics for TI Extended 
BASIC users. Do you have any special requests? Please 
let us know. We're in business to serve the TI user. Dealer 
inquiries welcome! 
Figure 3. Circuit Diagram of the Filter "Pide send nie 
Note: On many touch-tone phone systems this filter will not be $ $ a PN $i 
needed for correct dialing. We suggest you first try without it—Ed. бата! Di Өр 0 24 
I. Games f, Tape (GT-01) @ 9.95 
Load Previous Data File ccs Games il. Disk (GD-02 Q M95 
To load a previously stored data file, we select Y for the pe ine vum d 
LOAD DATA? option and follow the screen displays to ~ Games 1, Tape (тод @ 895 
operate the cassette player or disk. When loaded, the name Please add $1.00 lor shipping & handling 
of the data file, its size and the date of the previous revision : aes 
will be displayed (Display 2); the program will then return Florida residents add.4% sales tax 
you to the master selection list (Display 3). aa 
Master Selection List and Its Functions er erben pter Pa 
: The master selection list (Display 3) provides access to И 


the program’s various options. А banner ***UPDATE 
DIRECTORY*** will be displayed if there has been any 
alteration of the data file since the last update. This should 
E act as a constant reminder to save the revised version of the 
data on a cassette or disk. The different options of the 
master selection list are as follows: 
Press 1: Select this to add any new entry to the data file. 
This leads to the data entry of Display 1. State! Zip. 
Press 2: This leads to Display 4. You can access any 
individual entry by its serial number in the directory (from 
Display 5) or by a string search. Here, entering a null string 


Make check or money order payable to: 


(i.e., just pressing the ENTER key) for any category will I IMORE А юла 
leave it unaltered. PRODUCTS division oi f 
Press 3: This displays a short form of the directory as in M-1A Systems Corporation 


Display 5. The display stops when the screen is filled. Press- Dept. 99-1 » Р.О. Box 1431 • Winter Park, Florida 32790 
ing any Key causes the remaining data to be displayed, or 
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LOAD DATA? (Y/N) 
‚ PHONEBOOK? (Y/N) 
ENTER | 
Е TO EXIT 
R TO REENTER 
NAME :DOE 2 
PHONE: 987 6543 D 
STREET:4321 NORTH SOUTH ST 
CITY & ZIPSHOLLYWOOD; СА99888 
MISC:JOHN; DATE OF BIRTH JAN 2 
1 1921; WIFE MARY; CHILDREN 
JOE.: SUSAN; WEOD ANNIV FEB 


25; 2) 
DISPLAY 1 


1<12 


INITIAL SET-UP 


Noje: 


QD = pressing ENTER, 
after the user's response 


LOAD DATA (Y/N) Y 

ENTER 

1. CS1 

2. DISK 1 

3. OTHER 

* REWIND CASSETTE TAPE cs1 
THEN PRESS ENTER 2 

* PRESS CASSETTE PLAY CS1 
THEN PRESS ENTER > 


INVENTORY —1 
LSIZE(3800)-1628 
LAST UPDATE: MARCH 26 81 


DISPLAY 2. LOAD PREVIOUS 
DATA FILE* 
(FOR OPTION 1) 


* DPJJDN 2; ENTER FILE NAME 
OPTION 3: ENTER DEVICE NAME: 


PRESS 

1 — TO ADD MORE DATA 

2— TO ALTER THE DATA 

3 — TO DISPLAY THE DIRECTORY 
4 — TO DISPLAY ONE ENTRY 

5 — TO USE THE DATA 

6— TO STORE DATA FILE 

7 — FOR PRINTER LISTING 

8 — TO END PROGRAM 


*** UPDATE DIRECTORY *** 


DISPLAY 3 MASTER SELECTION LIST 


WHICH ONE; DOE 3) 

ENTER 
NEW DATA AT CURSOR 
'D' TO DELETE THE ITEM 
'ENTER' FOR NO CHANGES 


DOE? 

987 6543; (424) 987 6543 =) 

4321 NORTH SOUTH ST? 
HOLLYWOOD; CA99888? 

JOHN; DATE OF BIRTH JAN 1 19 
21; WIFE MARY; CHILDREN JOE 

$ SUSAN: WEDD ANNIV FEB 25;? P» 


DISPLAY 4 DATA ALTERATION 


1. ARPACI JOE 321 1234 
2.DOE (424) 987 6543 
З. DOE MARY (424) 789 3456 
4. MOORE N. 578 657 8901 

5. NORTON P, 356 4473 
6. OHSHIMA 368 8714 
7. SASTRY М, 765 2345 
8. SHIELO 8. 654—789 4532 
9. SHYAMALA 206 6808 
0. SUBBAIAH (213) 356 4473 
1. WONG V. 256 3902 
PRESS ANY KEY TO CONTINUE 


DISPLAY 5 SHORT FORM 
DIRECTORY 


WHICH ONE? 
DOE 

(424) 987 6543 
4321 NORTH SOUTH ST 
HOLLYWOOD; CA99888 

JOHN; DATE OF BIRTH JAN 1 19 
21; WIFE MARY; CHILDREN JOE 
& SUSAN; WEDD ANNIV FEB 25; 


DOE 2 


PRESS 
E TO LIST UP 
X TO LIST DOWN 
S TOSEARCH MORE 


PRESS ANY KEY TO CONTINUE 


DISPLAY 6 SINGLE ITEM DISPLAY 


RE 
DOE 
(424) 987 6543 
4321 NORTH SOUTH ST 
HOLLYWOOD; CA99888* 
JOHN; DATE OF BIRTH JAN 1 19 TOTAL COST OF ALL THE ITEMS ENTER 1.С$1 
21; WIFE MARY; CHILDREN JOE 2. DSK1 
$ SUSAN; WEDD ANNIV FEB 25; POTEET Tre 3. OTHER 
1(424) 987 6543 M M 
PRESS s M YOUR CHOICE? 2 
R TO REDIAL M M TODAY'S DATE: MARCH? 1981 *.— 
S TO START STOPWATCH $ 7450.6 $ DIR. NAME: PHONE BOOK ~1 —) 
N. FOR NEW NUMBER м % * REWIND CASSETTE TAPE — CS1 
PRESS ANY KEY ТО CONTINUE > К з THEN PRESS ENTER 
PRESS $95955559555555555 * PRESSCASSETTE RECORD CS1 


R TOREDIAL 

S` TO START STOPWATCH 

N FOR NEW NUMBER 
PRESS ANY KEY TO CONTINUE 5 
HOLD DOWN 
R TO DIAL AGAIN 
ANY KEY TO CONTINUE 

00:55 


DISPLAY 7 PHONE DIALING AND 
STOPWATCH 


PRESS ANY KEY TO CONTINUE 


DISPLAY8 TOTAL COST OF 
INVENTORY 


THEN PRESS ENTER 
* PRESS CASSETTE STOP Cs1 
THEN PRESS ENTER ы 


DISPLAY S SAVE DATA FILE 
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returns you to the master selection list if no more data is to 
be displayed. 

Press 4: This produces a complete listing of a single en- 
try (Display 6)~selectable by its serial number in the direc- 
tory, or by a string search as in Display 4. 

Press 5: This allows the program to use the data files 
when dialing/redialing in the phonebook option, or to 
obtain the total purchase cost of the inventory in the house- 
hold inventory option. If you are in the phonebook option, 
the program will advance to Display 6. If the display is ap- 
proved by pressing any key other than E, X and S, the com- 
puter dials the displayed phone number. In the beginning, 
you may have to adjust the volume control of your TV set 
or monitor for proper operation. The digits will be displayed 
one-by-one as they are dialed. If the total number of charac- 
ters in the phone number is greater than or equal to 10, the 
routine recognizes it as a long distance call, and dials 1 at 
the beginning (Display 7). After getting familiar with the 
operation, you may want to reduce the time periods assigned 
inthe CALL SOUND statements on lines 3540, 3580, 3590. 
You can redial the number by pressing R, start the stop- 
watch by pressing S (and quickly releasing the key), or select 
a new number using the choice N. Any other key (including 
a prolonged pressing of S) terminates the dialing session and 
the master selection screen will be displayed. 

With the selection S, the stopwatch routine on line 3700 
is activated. The elapsed time is displayed at the lower 
right-hand corner (Display 7). You can control the accuracy 
of the stopwatch by adjusting the time delay constants of 
the DATA statement in line 3320. Here, holding down R 
starts the dialing procedure all over again; pressing any other 
key returns you to the master selection list (Display 3). 

If you are in the household inventory option, choice 5 
of the master selection list will cause the program to calcu- 
late the total purchase cost (Display 8) of all the items in 
the data file. There's no adjustment here for inflation. This, 
however, could easily be done. For example, you could key 
in the consumer price index into the data file at the time of 
an item's purchase and scale the purchase cost with the 
current price index when evaluating the SUM (in the routine 
on line 3150). I felt, however, that this procedure would be 
rather involved for day-to-day use. 


Press 6: This permits storing the data file on either cas- 
sette or disk. The computer asks (Display 9) for the title of 
the data file and the date of revision for future reference. 
This information will be displayed when you re-load the 
data for another session. 

Press 7: This produces a hardcopy listing (with nine 
complete entries per page) on either the TI thermal printer, 
or a printer connected to the RS232 interface. The com- 
puter first asks you to verify that either the thermal printer 
or the RS232 interface is connected, to avoid the File-Error 
termination. As a precaution, alway SAVE the updated file 
on cassette or disk (option 6) prior to printing. 


SUMMARY AND FINAL REMARKS 


This program is capable of performing a wide variety of 
functions. | have shown you how to use it to maintain a 
computerized phone directory and do automatic dialing, as 
well as to maintain very flexible data files for day-to-day 
use in the home. Typical applications include an inventory 
of household valuables, a record of credit cards and bank 
accounts, lists of author/subject references for research, 
recipe card files, etc. Some of the individual subroutines 
(in particular, the sortingroutine and the stopwatch routine) 
should also be useful in many other applications. The pro- 
gram, as presented here, is contained within the standard 
16K TI BASIC. A version in Extended BASIC to access the 
additional 32K RAM should give the program an even 
broader scope. с 
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100 REM  fXXSYXXXIXYIEYXIXXILXYE 
110 REM Ж THE HOME SECRETARY + 
120 REM  XXY*3XXXXXiXir*rEGERii 
130 REM 99°ER VERSION 7.81.1 
140 REM РҮ M6LLADI SUBBAIAH 
150 REM 
160 REM 
170 DIM 81$(50),62$(60) AIS (20), АФ (C60) , ASS (50) 
180 DIM CAT#(4) 
190 DIM F1(3),P2¢5) 
200 DATA 697,770, 852, 1210,1340, 1481 
210 READ Pi(1),P1(2),81¢(3),F2(1),F2(2),P2(5) 
220 DATA NAME: , PHONE: , STREET: ,.CITY%ZIP:,MISC: 
230 DATA "ITEM: ", COST: , SHOP: , WHEN: , MISC: 
240 CALL CLEAR 
LSIZE=0 
ОРТ=1 
READ САТФ (1), САТФ (2), САТФ (5) „САТФ (A) ,CATS(5) 
О PRINT "LOAD DATA? (Y/N)" 
GOSUR 5120 
O IF KEY«289 THEN 330 
GOSUR 1900 
GOTO 410 
O REM NEW SET UP 
О PRINT "PHONE BOOK? (Y/ND" 
60508 2120 
IF KEY-89 THEN 390 
OPT=2 
O READ CAT$(1),CATS$(2), CATS (3) .САТФ (4) ,CATS (5) 
N=0 
GOSUB 430 
о GOSUB 850 
BOTO 410 
REM KEY INPUT FOR DATA SET UP 
PRINT :"  ENTEK":" E TO 
EXIT R TO REENTER" 
450 FLAG1-1 


460 FLAG2-1 


470 IzN«*1 
480 IF 1<=60 THEN 520 
490 PRINT ::" 8% ARRAY FULL (Nz&50)E&t":: 


500 GOSUB 3100 

510 RETURN 

520 PRINT 

530 INPUT CAT$(1):A1$(1?) 
540 IF AIS(ID="E"THEN 750 
S50 IF A1$(1 END"THEN 750 
560 IF AIS (1) THEN 530 
570 IF ALS(T)<>"R" THEN 620 
580 І=1-1 

590 NzI-i 

600 PRINT :" %%% REENTER LAST SET #43" 
610 GOTO 520 

$20 IF OPT<>1 THEN 650 

650 INPUT САТФ (2) :42% (1) 
640 GOTO 670 

650 INPUT CAT#$(2):T 

460 А2%(1)=5ТН%(Т) 

67Q INPUT САТ®(3):А5%(1) 
580 INPUT CAT$(4):64$(1) 
690 INPUT Сат% (5) з А5%Ф (1) 
700 GOSUR 770 

710 IF T2190 THEN 600 

720 GOSUR 800 

730 N-1 

740 GOTO 470 . 

750 GOSUR 2410 

760 RETURN 

770 REM MEMORY CHECK 

780 T-LEN(A1$(1) &A2$ (I) КАЗФ (1) LAASI) $ASS (I2) 
790 RETURN 

800 LSIZE=LSIZE+T 

810 IF LSIZE<3300 THEN B40 


Continued on p. 70 
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ACE the CONSUMER ELECTRONICS SHOW 


By Gary M. Kaplan 


THE STAR OF THE SHOW: Tex 
rations of the TI LOGO 


| 
| 


Speculation in the microcomputer community had been 

running rampant: Would Texas Instruments introduce 
a new personal computer at the summer Consumer Electro- 
nics Show? What would it be like? What would it cost? 

During the month. prior to the May 31st-June 3rd event, 
rumors rippled throughout the trade press, computer dealer 
network, and users-group grapevine. According to a host of 
“reliable sources," ТІ would both release and not release a 
new machine at this time. If one believed the former group 
of reliable sources, the new machine would bridge both the 
lower gap between ТІ’ programmable calculators and the 
TI-99/4, as well as the upper gap between T1-99/4 and the 
990-series of business computers. That seemed like quite a 
bridge to me, although where the bridge was actually lo- 
cated depended on which group of reliable sources one 
believed was more reliable... The cost of this phantom 
machine would, | was reliably informed, be both significant- 
ly less and significantly more than the price of a TI-99/4. 1 
guessed that was because, according to more reliable sources, 
it would be ''bare-boned"' as well as “fully loaded." Quite 
versatile this existing/non-existent machine! 

The stage was set for its—if it existed—Chicago debut. 
Well, it does indeed exist: Enter the TI-99/4A personal 
computer—a new console that retains the same profile, 
speech capability, color graphics and software compatibility 
of its predecessor, but replaces the old 40-key calculator- 
style keyboard with a standard-configuration, 48-key type- 
writer keyboard. This, in itself, would be quite a welcome 
improvement; but take a closer look at the new keyboard's 
specifications and you'll soon discover that it really is a new 
keyboard and not just the recipient of some superficial cos- 
metic changes. Witness its impressive array of features: such 
niceties as both upper and lowercase; an ALPHA LOCK key 
(for conveniently keeping the keyboard in uppercase mode); 
auto repeat (with a two second time delay) on all keys; 
function (FCT'N) and control (CRTL) keys (for secondary 
functions and telecommunications use); and finally, a 
BASIC that will accept both upper and lowercase characters 
but displays all reserved words, variable names, and subpro- 
gram names in capitals for easy identification. How's that 
for versatility? 

The keyboard action has an excellent “feel.” Although it 
is still the same small size as its predecessor, touch typing 
on this new keyboard gives you the illusion of typing on 
a big office machine. It seemed quite capable of keeping up 
with my occasional blinding bursts of speed—something the 
old keyboard (and quite a few other microcomputer key- 
boards as well) is incapable of doing. Incidentally, | have 
been informed by Texas Instruments that since the circuit 
board has been re-designed, there's no practical way of 
retrofitting existing TI-99/4s with the new keyboard. 

In addition to the features I’ve mentioned above, there 
have been some other changes. As you can see from the 
photograph, don't expect the familiar keyboard overlays to 
fit this new machine. Instead, it uses a two-level strip over- 
lay mounted. above the top row of keys (similar to super- 


| went to Chicago not knowing quite what l'd find... 


I} at the CONSUME 


THE STAR OF THE SHOW: Texas Instruments’ new consola — the T 1-99 
demonstrations of the ТІ LOGO language, TEXNET database access with 


market shelf pricing strips and holders). Also, due to some ROM/GR 1 
swaps on the new circuit board, the console now has a built-in "tr 
circuit (that has to be installed in the old console through a separg 


factory modification) for TMS9900 assembly language debugging Ё. 


the UCSD Pascal Development System (see 99'er Magazine, May/ |i; 
1981, p. 56); in the process, however, the console lost its Equation Ф 
culator mode. 3 
Even with all these changes described so far, I've yet to mention 
most exciting feature of the new console: its remarkably low price. 
suggested retail price of $525 sure buys a lot of features in this pack: 
The bottom line is that Tl’s new machine is /ess than half the price 
anything from another manufacturer that even comes close to its pow 
and versatility. (There presently isn't any other micro on the mark 


ME DON 


took the time to look at the colorful sprite animation on 
the video monitors and listen to the latest UPI presswire 
news "voiced" through the speech synthesizer. A proto- i 
type of TI's Terminal Emulator II provided the text-to- 
speech translation of the UPI database material that was 
being sent over the telephone from The Source?M in 
McLean, Virginia, and also provided access to the TEXNET 
portion (a subset of The Source) for viewing pictures from 
the 7/ Graphics Library and hearing scores from the T/ 
Music & Sound Library. Subscribers to TEXNET will be 
able to download any items in these libraries for use in their 
own programs. 


TI Video Controller 


Besides the numerous Т1-99/4А consoles that were hard 
at work demonstrating new software at various locations 
throughout the exhibit area, Texas Instruments also had 
another piece of new hardware earning its keep—although, 
this one, the 7/ Video Controller, was not being presented 
as a consumer item. Rather, it was part of an interactive | 
point-of-sales display in which a videotaped Bill Cosby | 
joked with the passers-by as he asked and answered ques- 
tions about the TI product line according to typed in key- 
board responses. TI will be positioning the Video Controller 
system for sale in the institutional market—it's a particular- 
ly attractive package for schools and developers of corpo- 
rate training programs. 

The Video Controller (packaged in the familiar silver and 
black peripheral box of the TI-99/4 product line) is designed 
to work with industrial-grade video recorders having the 
ability to accept a remote control unit; it may be used with 
both У-ілсһ and 34-inch video cassette recorders, as well as а 
video disk player. With it, the Т1 computer can automatical- 
ly direct a tape or disk to predetermined segments of the 
video program (under Extended BASIC control). The result 
is a video system for developing and delivering customized 
teaching or training programs—a perfect marriage between 
i a the interactive and immediate feedback capabilities of the 
ith typewriter-ike k. ice: Roa computer and the realism of video. 
ee ee With the Video Controller (about $700) and the Author 
ing Software package (about $200) hooked into a TI-99/4A 
disk system with Extended BASIC, an author can design or 
that offers the capability of combining color graphics, sound, speech, update courses using existing videotapes (without altering 
sprites, and music in the same program!) | strongly suspect that very the original tape), or design new video courses that take 
shortly we will be welcoming a large number of new users into our maximum advantage of the computer's branching capabili- 
99'er community... ties. The Author program is designed to e/iminate the need 

for computer programming in developing a course, by guid- 
ing the development with step-by-step instructions on the 
TI LOGO & TEXNET?" display. Adding the text-to-speech capabilities of the 
Terminal Emulator II and Solid State Speech Synthesizer, 

The new console wasn't the only TI product to attract crowds of will allow a developer to utilize virtually unlimited vocabu- 
show-goers, TI LOGO, a new programming language, and TEXNET, an lary to instruct a student taking the course. And since it's 
on-line computer information and communication service for the ТІ possible to store the resulting interactive AV course on the 
Home Computer [sce related articles in this and the previous issue] second audio track of the videotape, there is no need for 
captured the interest and imagination of all who passed the exhibit and Continued on p. 56 
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Finally, 
Development Software 
For TM990 Micro Modules 


PDOS/EXPRES is a powerful multi-user, multi-tasking 
operating system developed by Eyring Research Institute, 
Inc., for the 16-bit Texas Instruments TM990 micro- 
processor module family. This development software is 
designed for scientific, educational, industrial, and busi- 
ness applications where maximum configuration flexibility 
and tailored program development are important. The 
PDOS/EXPRES system software combines Tl's micro- 
computer hardware technology with a proven high per- 
formance operating system enhanced by a powerful 
EXPRES BASIC interpreter. PDOS/EXPRES can be easily 
configured for large or small floppy disks, bubble memory, 
and/or Winchester disk mass storage units. 


PDOS/EXPRES is available for either an EPROM based 
system or a RAM based system. A handsome 250 page 
Operator Reference Manual walks you through the fea- 
tures and use. PDOS/EXPRES is attractively priced at 
$1500.00*, or for evaluation purposes, you may purchase 
the Operator Manual for $25.00. 


Order your PDOS/EXPRES software from Eyring Research 
Institute, Inc. For further information and a free color 
brochure write or call Eyring Research Institute, Inc., 
Software Marketing Dept., 1455 West 820 North, Provo, 
Utah 84601, phone (801) 375-2434. 


Part 
ER3232 


Description 
32K Memory Board 


ER3314 


Winchester Controller Board 
Interface 


C] ER3318 


Color Video Display Board 


ER3389 


University Color Video 
Display Board 


] ER3410/11 


PDOS/EXPRES Software 


ER3410/M 


PDOS/EXPRES Reference Manual 


would like to have further information about the above 
items. Please send to: 


Мате NK 


Date 


ao 


Company/University. 


Address. 


City/State/Zip —___ ~ _ ____ 


*U.S. price 


Eyring Research Institute, Inc. 
1455 West 820 North 
Provo, Utah 84601 
(801) 375-2434 
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SOFTWARE 
for 


"Extended BASIC 


Extended Baseball — Full sprite action, dual 
joystick control, see Extended BASIC in action 
(joysticks required). 


Extended Hangman —- With speech, 580 words, 
good graphics (requires speech synthesizer), 


Extended BASIC Module Required For Both Programs 


CASSETTE : $9.95/Both for $16.95 
DISKETTE : $12.95/Both for $19.95 


e Satisfaction Guaranteed e 


Send Check То: 


Extended Software Co. 
11987 Cedarcreek Dr. 
Cincinnati, Ohio 45240 
Tel. (513) 825-6645 


Or Send 25 cents Postage for Literature 


PROFESSIONAL 
SOFTWARE 


for the TI-99/4 


Accounts Receivable ..... . $ 99,95 
Accounts Payable......... | 
Inventory ............... 
General Ledger........... 
Package (All 4 Systems) . . . . $350.00 


Extended BASIC 


Inventory - Invoice ....... $129.95 
Payroll................ .$129.95 


* Disk-Based, 1 or More Drives 
* Supports RS-232 
* Full Documentation 


For More Information Contact : 


W. R. Wilson Co. 
928 North Apple St. 
Greenfield, IN 46140 
Tel. (317) 462-1099 


EXT. эы dux: 


(UNIVERSITY BASIC Style) 


The ER3389 VDP Video Display Processor Board shown connected to the 


E 


Texas Instruments TM990/189 University Module. 


By Paul R. Roper 
& Richard T. Adams 


Eyring Research Instítute, Inc. 
1455 West 820 North 
Provo, Utah 84601 


OMBS AWAY is an interactive 
Bo for the Texas Instrument's 
TM990/189 University Board with 
a TMS9918 Color Video Display Proc- 
essor (VDP) board attached. The game 
is written in University BASIC and takes 
advantage of all the color graphic com- 
mands included in the language. This is 
especially true of the MOVE command 
which moves and reflects SPRITE images 
at different. speeds, whether or not a 
BASIC program is running. 

Interactive inputs from either a joy- 
stick or the user keyboard control the 
altitude and speed of the airplane. 
Bombs are dropped from the plane on 
three moving targets: a fighter plane, a 
boat, and a submarine. When bombs 
are not falling, the fighter plane is trying 
to shoot down the bomber plane. Also, 
the boat is bobbing up and down on the 
whitecapped water, and the submarine 
is diving and surfacing continually. 

Points are scored for each hit depend- 
ing on the plane's altitude and the target 


hit. Points are deducted for each bomb 
dropped and each hit inflicted by the 
fighter plane. A running high score is 
maintained by the program and displayed 
at the end of the game. 


MOVE Command 


The Key to the simulation is the 
MOVE command of University BASIC. 
This versatile command allows sprite 
movement to be done by the University 
BASIC system clock without program 
control. The MOVE command generates 
specific BASIC variables for monitoring 
and altering the sprite positions in real 
time. The X and Y delta velocities and 
automatic reflection limits can also be 
set for each sprite image. 

In this program, five sprite images are 
set in motion by the MOVE command. 
(Up to 32 sprites can be simultaneously 
set in motion.) The main loop of the 
program monitors the sprite positions, 
initiates new sprites, and watches for 
sprite coincidence. If the BASIC pro- 
gram had to move each sprite individual- 
ly, the smooth and fast responses would 
be impossible. 

If the MOVE command has only one 
argument, a table is generated to hold 


sprite positions, increments, and limits, 
Corresponding variables are also added 
to the symbol table of the BASIC inter- 
preter. The variables begin with the let- 
ters X and Y followed by the sprite 
number. For example, MOVE 5 creates 
ten BASIC variables: X1, Y1, X2, Y2, 
ХЗ, ҮЗ, X4, Y4, X5, and Y 5. These are 
continuously updated by University 
BASIC to the current position of the 
corresponding sprite—even while BASIC 
is in Keyboard mode. The variables can 
be read or changed at any time by a 
BASIC program, and the system will use 
the new values. Bombs Away uses these 
variables to check when to change the 
sprite patterns as the planes fly back 
and forth. They are also used to deter- 
mine which sprites caused the coinci- 
dence flag (variable CF) to be set. 

Sprites are set in motion by the 
MOVE command when the sprite num- 
ber is followed by the delta X and Y 
velocities. These velocities are the 
amount added to a sprite sum or posi- 
tion by each clock increment. The sprite 
is moved according to the sum divided 
by 256. Hence, if the delta movement 
were 2, then 128 clocks would be re- 
quired to move the sprite 1 pixel or 
screen position. For example, MOVE 1, 
256,512 would move sprite #1 one 
pixel in the X axis and two in the Y axis 
for every clock increment. As was stated, 
the clock runs independent of any 
BASIC program. The boat and subma- 
rine are given both X and Y velocities 
while the planes have only X movements, 

If the sprite is already moving and 
a new positive delta velocity is given, 
then the sprite will continue to move in 
the same direction with the new delta 
velocity. If the new delta velocity is 
negative, then the sprite will begin to 
move in the opposite direction with the 
new absolute delta velocity, reflecting 
the sprite, Hence, in order to direct a 
moving sprite in a specific direction, the 
sprite must first be stopped, and. then 
given the signed delta velocity. For ex- 
ample, MOVE 1,0,DY;1,-DX,DYwill 
set sprite #1 in a right to left motion 
from the current position and leave Y 
unaffected. 

The reflection limits are specified 
with a negative first argument followed 
by the X and Y limits. These limits are 
generated by multiplying the lower limit 
by 256 and adding the higher limit. The 
lower limit should be less than the up- 
per limit. The X limit ranges from 0 to 
255 while the Y limit ranges from O to 
192. (Since University BASIC is an 
integer BASIC and numbers range from 
—32768 to 32767, these limits may be 
negative.) For example, MOVE —3,230, 
—30580 will reflect on the X axis be- 
tween O and 230 (0*256+230=230). 
The Y axis reflects between 136 and 
140 (136*256+140=34956), However, 
this number is greater than 32768 and 
hence 65536 must be subtracted from it 
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‘The ER3389 VDP Video Display Processor Board shown connected to the 
‘Texas Instruments TM990/189 University Module. 


giving —30580. The effect of the boat 
bobbing up and down on the water and 
the submarine diving and surfacing is 
achieved by setting small Y reflection 
limits. 


Hardware 


The game is played interactively with 
the keyboard, or it can be made more 
enjoyable by attaching joysticks having 
a “fire” button. Line 5 of the program 
selects a joystick. [t must be deleted 
when only the keyboard is to be used. 

The color VDP board is manufac- 
tured by Eyring Research Institute Inc., 
Provo, Utah. It attaches directly to ad- 
dress bus connector P4 of the University 
Board and has composite video output. 
A joystick interface is also provided on 
the board. The JOY function makes 
an assembly language call to hex address 
21002. A listing of the routine is given 
in Figure 2. 


The Game 


Now, a little about the game. You 
have 25 bombs and start with 500 
points. Ten points are deducted for each 
bomb dropped and fifty points for each 
time you're hit by the fighter plane. A 
submarine hit by a high altitude scores 
the maximum number of points. 


Sprite patterns are defined as follows: 
0 = Plane moving right 

= Plane moving left 

= Boat 

= Submarine 

Bomb 

7 Explosion 

= Fighter shell 


Фл Боом ~ 
LU 


Two fixed patterns are also used to 
set up the water and the whitecaps. 
These are defined as follows: 

7 = Whitecaps on water 

8 - Water 


The actual sprites are assigned pat- 
terns and colors according to their posi- 
tion on the screen. The sprite object and 
color assignments are: 


1 = Plane White 

2 = Fighter plane Light Green 
3 = Boat Dark Blue 
4 = Submarine Red 


5 = Bomb or Fighter Shells Green 


If only the keyboard is used, then 
line 5 of the program should be deleted. 
(Type 5 followed by a carriage return.) 
Then the following keyboard characters 
control the speed and altitude of the 
plane: 


= Drop bomb 

Slow plane's velocity 
Increase plane's velocity 
Increase plane's altitude 
= Lower plane’s altitude 


Qc 


5 SP=1 


Figure 1. Program Listing 


Program Description 


10 MODE -1;-2:1›-1: №500: NB-25: PS=100: GOSUB 200 

12 SPRITE 0, "001088BFFEQ9102000081 1FD7F 1008040013123CD87E 2C" 

14 SPRITE 3, "1808083C7EFF7E3C00291023382810007631 8045458081 7E90" 

16 PATTERN 7, "00000000001028С7": COLOR -240: VDP(940)=240: VDP(951)55 
20 FOR 1=576 Т0 757 
22 VDP(1)=7+1/608 
24 NEXT I 

30 MOVE 55-1, 230,05 
40 SPRITE -2,0,25 4,36 

42 MOVE 2,130,0:3 54,120,50: Y2-110: GOSUB 250 
44 PRINT 899:N8" "el19:N" ": IF CF: GOTO 44 

4 IF NECO: GOTO 300 

50 IF X110: В0=1 

52 IF X19220: BD--1 

S4 SPRITE -1 (1-80)/2,15:. IF Х2410: SPRITE -2,0 

5% IF Y22220: SPRITE -2,1 

50 GOSUS 200 

62 IF MS: А=5 

64 IF А2115: ARIS 

65 Ү1=А: MOVE 1,0,0:1, PSXBD,O: IF В: GOTO 90 


25220,0173, 230, -305801 -4. 230, -256663 -5,220,191 


Line Nos. 
Keyboard or Joystick variable, 
10-24 SPRITEs, PATTERNS, and screen initialization. 
30 SPRITE MOVE limits, 
40 SPRITE assignments, 
42 SPRITE velocities and coordinates. 
44 Print score & wait for non-coincidence. 
46 End of game check. 
300-304 End of game, 
50-66 Set plane position & sprite assignment. 
68 Fighter plane gun fire. 
70 Plane hit by bomb. 
7282 Bomb drop. 
90-98 Accelerate bomb and check for hit. 
100-114 Explosion! 
200-212 Plane speed and altitude inputs, 


250 Disable 


bomb. 


Figure 2. Joystick Software 


58 IF YSSYl: Y5-X2«10: YS-Y2-4: SPRITE -5,6,15: MOVE 5.0,0:5. RND 500-250, -500 1 00001000 ARG 21000 
70 IF CF: Р=1: N-N-50: GOTO 100 2 1000: 1000 NOP 
її ds: трн fae ae 
2) В=50: BX-PSBD: XS=X1: YS=Y1+l6: MOVE 5,0,0:5, B. B 51008: 0000 DATA PROMI 1907 Ы 
82 Y=Y5: SPRITE -5,4,2: N-N-10: NB-NB-1: GOTO 44 & Ui00e: 0000 DATA PROM? — iBREAKDUT 
90 IF YoY5: 0070 42 7 улоо: 0000 DATA PROM —— BOMES 
92 IF YSo130: B-100: IF J2: 0070 20 3 D 
94 Ү=үб: B=B+75: BX-EX-PY/St MOVE S.ABS ВХ,В: IF CF=0: GOTO 50 9 Salalah 
96 Pelt IF YS>OSt Р=ү5/32-1 : JOY FUNCTION 
38 N=NHP#30-A/10 
YFF CLR RO SCLEAR RESULT 
100 OVE P1 0:08: ШЫ 20 Note for Figure 2. MWB 6JOYTBLL1,RT 
102 FOR 1=1 TO 16 [This software routine must either be burned AT JOYFS =: SWITCH 
104 FOR J=1 TO RND 4 into EPROM and Pi ugged into one ct the LIM 0 DISABLE CLOCK 
10 I: TONE J, vacant sockets on the Eyring board, or loaded ISTART Ci 
ion ons into external, off-board RAM. Watch next ane. nee 
issue for a discussion of adding this additional И Кес " 
110 ore CSI RAM to thé University Board—Ed.] а LI ФМА ЕТТИК ADDRESS 
12 NEXT I 
114 GOTO 40 Um eo MAT I n 
200 IF SP: PS=JOY 0: AeJOY 1/4-20: J2=J0Y 2/200: RETURN JE 0Р2 
202 4250: |-KEY 0: IF 1-73: J2-1 à 
204 IF 1=74: PS=P9-25 с 0300 001 JOYF LINI IMK VENABLE INTERRUPTS AGAIN 
206 IF 1-72: PS-PS450 + 0498 ar RETURN 
209 IF 1-78: feA-5 ' 
210 IF 1288: А5465 х 0020 0082 ть MOVB BJOYDRO — :GET SWITCH READ 
212 RETURN : 500 S203 81.0 MASK 
i 7 2 ^ ЗЕЕ 
250 8-0: ИМЕ 5,0,0: SPRITE 5,99,240:-5,4: Y5-0: RETURN echas M E 


300 IF MOHI: HI=N 
302 PRINT @99*БАМЕ QVER"B2SS"HI -"HI: IF KEY 0: GOTO 10 
304 GOTO 302 


1 0102 FBG J0vT8 
: 0610 DOG 


BYTE 201,202,2FE. 
BYTE 208.510.20F. 
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HI PAD piciTIZER 


By W.K. Balthrop & G.R. Michaels 


pleasant thought, isn't it? At least 

that's what one of America's large 
insurance companies is betting on. Their 
multi-million dollar TV ad campaign 
boldly asserts that its policy coverage 
will, in fact, simplify your life,—make 
the financial and protection aspects of 
life seem easier, less complicated . . . 

These series of ads started us thinking: 
A personal computer is supposed to sim- 
plify our lives. But does it really? Many 
times, the new computerized methods 
that replace the old manual methods are 
still cumbersome; we've somehow traded 
in slow and tedius methods—but usable, 
nevertheless, because they're exactly the 
way we feel comfortable doing things— 
for faster, more organized, but noticea- 
bly awkward mechanized methods. 
Most of the time this is because of the 
constraints imposed on the software 
through its dependence upon an overly 
complicated **man-machine" interaction 
via a keyboard. In a nutshell, we are 
forced to conform to an unnatural way 
of entering data. 

Think how much easier our “life with 
computers” would be if we could simpli- 
fy this interaction . . . Readers of 99’er 
Magazine are already familiar with the 
giant strides taken by Texas Instruments 
in the area of information output— 
specifically voice synthesis and text-to- 
speech. An efficient, moderately priced 
system of voice recognition for data 
input, however, still seems somewhat far 
away at present, 

Even though we have to forego voice 
input at present, there are still other 
methods for communicating with a 
computer that are more natural than 
through a keyboard. Take for example, 
the data tablet/digitizer—an input device 


ре your life . . .” An extremely 


that converts graphic, tabular, or menu- 
type information into digital values 
usable by a computer. By merely touch- 
ing a pen-like stylus to any positionona 
map, diagram, chart, menu, or other 
graphic presentation resting on the tab- 
let's surface, the coordinates of that 
position are transformed into their digi- 
tal equivalents, and are sent back to 
your computer where the appropriate 
software converts the data into mean- 
ingful information input. For more ac- 
curate positioning on the tablet's sur- 
face, digitizers use a cursor with a cross- 
hair sight and ''fire" button. 

What can you use a digitizer for? 
Applications are as unlimited as your 
imagination. For starters, how about 
order entry, opinion sampling, or menu 
selection? Checking an appropriate box 
on a pre-printed form inputs the data 
quickly and with less chance for errors. 

In the field of education—especially 
computer-assisted instruction—a digitizer 
can eliminate the tedium of typing and 
enhance the excitement of learning 
through more natural interaction. 

In design and drafting work a digitizer 
is a natural: Structural elements, floor 
plans, piping diagrams, printed circuit 
board layouts, mechanical parts—virtual- 
ly every type of graphic information 
you can trace—can be more efficiently 
input with this device. 

Typical uses in business and industry 
include forecasting and planning applica- 
tions, trend and comparative financial 
analysis, sales performance, inventory 
control, and stock/commodity charting. 

The medical field, too, can benefit 
from simplified data entry with a digiti- 
zer. Whether in lab or clinic you'll find 
plenty of possible uses—applications 
such as x-ray and ultrasound planning 


and analysis, and lab report data entry. 

And by all means, let's not forget 
games and computer graphics. Since a 
digitizer is a more precise alternative 
to joysticks and light pens, think of the 
possibilities for fast, interractive simula- 
tions. The list of possible applications 
goes on and оп... 


The potential uses for a digitizer are 
indeed impressive, but we were wonder- 
ing how easy it would be to interface 
one to a personal computer such as the 
T1-99/4, and make it "do its tricks.” 
For our testing and software develop- 
ment we selected the Houston Instru- 
ment НІ PAD—one of the popular digiti- 
zers designed for personal computers. In 
a series of articles we will report our 
progress in integrating this peripheral 
into our 9900-based family. 

The HI PAD comes completely as- 
sembled with its own power supply an 
with built-in RS-232C and parallel in- 
terfaces. It has adigitizing area of 11x1 
inches, a resolution of 0.005 inches or 
.01 inches (with scaling in English or 
metric units), and has an accuracy o 
X 0.015 inches (at high resolution) in re- 
lationship to a user-defined origin. The 
coordinate system is absolute Cartesian 
with a choice of relocatable or fixed 
origin. In addition to RESET, there are 
three operating modes: (1) POINT, (2 
SWITCH STREAM, and (3) STREAM. 

Three user formats are available: (1 
parallel binary, (2) parallel BCD (binary 
coded decimal), and (3) serial ASCII 
(with selectable BAUD rates of 300, 
1200, 2400, and 4800). The digitizing 
rate, defined as the number of coordi- 
nate pairs per second (with a maximum 
of 100 in the HI PAD), is controlled 
and/or limited by the selection of out- 
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| POINT Mode ` 


EE o bte Conon Digan for 4800 BAUD 


пеге Le 


= 0, indicates the first coordinate of a switched stresm, A 
= 1, indicates successive coordinates of a switched: stream, + 

= 2, indicates a coordinate of point mode.. T 
3, indicates a coordinate of stream mode: with the cuis 


ASCII coded line feed. 


Figure 2. 


button released. X ex 
7 4,indicates a coordinate of stream mode with thé cursor, 
button depressed. 
Where + = anASCII coded + or —, 
Where Xor Y = ASCII coded digits 0 -9. 
Where Cn = ASCII coded carriage return, 


put formats. The serial format happens 
to be the slowest, but for reasons of 
simplicity in interfacing, we chose it for 
our initial tests. To try out the POINT 
mode, all that was necessary was to wire 
up a cable (not supplied) with a male 
DB-25 connector going to the Texas 
Instruments RS-232 Interface, and a 
female DB-25 going to the HI PAD as 
indicated in Figure 1. In Figure 2 you'll 
find the serial format for the 15 ASCII 
coded characters. 


The Programs 


HI PAD DECODER is ashort TI Ex- 
tended BASIC routine to display the 
15-character strings of serial data on the 
monitor or TV screen. Line 170 OPENs 
the RS-232 on port 2 (for 4800 BAUD 
and 8 data bits) to receive the 15-char- 
acter ASCII string. The —128 at the end 
of line 210 is necessary for proper trans- 
lation of the 8-bit codes to 7-bit ASCII 
codes for correct alphanumeric screen 


display (see 99'er Magazine, May/June 
1981 issue, p. 22). This translation does, 
however, slow down both this program 
and the one that follows. 

HI PAD DEMO, with the interface 
connections as described above, is an 
Extended BASIC program that will 
allow you to calibrate the digitizer, and 
then calculate distance and total en- 
closed area for the POINT mode of op- 
eration. In forthcoming articles we'll ex- 
plore other modes and applications. Gf, 


100 
110 
120 


REM XfXX**£*z5X*$*5*tkXxtti 

REM * HI PAD DECDDER 4 

REM жж ая 

130 REM 99'ER VERSION 7.81.1XB 
140 REM BY W.K. BALTHROP 

50 REM 

160 REM 

170 OPEN #1: "RS232/2.BA-4800.DA 
FIXED 15 
INPUT #1:C1% 
DISPLAY AT(S, 
CODE: " 

FOR X-1 TO 15 

DISPLAY AT(6,S#X)SIZE(1): 
СНАФ (ASC (SEG#(C1$,X,1))-128) 


NEXT x @ 


в", 


180 


190 "DIGITIZED 


200 
210 


220 


220 


GOTO 180 
EXPLANATION OF THE PROGRAM 


HI PAD.DEMO 
Line Nos. 
170 OPEN R$-232 port. 
180 Setup. variables, ~ 


190-250 Display option page & INPUT 
choice. 


260-280: Branch ta routine specified. 


290-310 . Instruction‘ and control; 

320-360 · Instruction апа contro! for: digitiz- 
ing, end ‘of line. 

370 What type of linear. unit will be 

3 used? .- 

380 :Hów many of the units are there in 


the calibration line you plotted? 
390-400 шее, units per.inch; GOTO 
«titte ра 
410420. "hspuction & ‘controf for digi 
* irigbeginbing of line. 
430-510" (Print: instructions: to. digitize the 
Jine: Update line length and print 
: ^o. on screen, 
1820590. instruction, and contro! to calcu- 
-lafe тота área. ^ ^ 
600-640 Calculate total atea and display. 
650-670! Calculate. distance" , between two 
роїт.: nts 
680- 710 Define X, Y Sadia, 
720-790. Input data from digitizer pad. 
800-830 | Assemble: data from pad into. pro- 
per ASCII characters. {subtract 128 
ASCII). 


100 REM **YX*tJYX3xxkx*xxxtà 
110 REM * HI PAD DEMO X 
120 REM tX*X*xux4titikkkxXx 


130 REM 99*ER VERSION 7.81.1XB 

140 REM BY HOUSTON INSTRUMENT 

150 REM 

160 REM 

170 OPEN $1:"RS222/2.TW.BA-4800. 
DA-8".FIXED 15 

180 UPI=1 :: V$=" INCHES" 

190 CALL CLEAR 

200 DISPLAY AT(3,.3): "MENU: SELECT 
ONE OF THE PROGRAMS." 

210 DISPLAY AT(7,2):"1. CALIBRATE.” 

220 DISPLAY AT(9,3):"2. DISTANCE." 

230 DISPLAY AT(11,3):"S. TOTAL 
AREA." 5 

240 DISPLAY AT(24,6):"YOUR CHOICE?" 

250 ACCEPT AT(24,18)BEEP:C :: IF 
С=О QR С> THEN 250 

260 CALL CLEAR 

270 ON C GOTO 290, 410,52 

280 GOTO 250 

290 DISPLAY AT(3,5): "PLACE 
DIGITIZER AT BEGINNING OF 
CALIBRATION LINE 
AND DIGITIZE." 

300 GOSUB 730 


GOSUB 680 :: X2-X :: Y2= 
DISPLAY AT(8,23):"NOW PLACE THE 
CURSOR AT THE END OF THE LINE 
AND DIGITIZE” 

GOSUB 730 
GOSUB 680 
X1=X2 :: 
TPU=D 
DISPLAY АТ ‹12, 5) ВЕЕР: "WHAT TYPE 
ОЕ UNIT IS THIS CALIBRATION 
BASED UPON?” :: ACCEPT 
AT(GS,20:V$ 

DISPLAY AT(17,3) ВЕЕР: 


Ү1=Ү2 :: GOSUB 450 


280 


“HOW MANY ";V$;" DOES THE 
CALIBRATION LINE REPRESENT?" : 
: ACCEPT AT(20,2):A 

390 UPT=A/D 

400 GOTO 190 

410 DISPLAY AT(S.3):"NOW DIGITIZE 
THE BEGINNING OF THE LINE.” 

420 GOSUB 730 :: GOSUB 480 : 
“s X1=x Yi-Y 

430 DISPLAY AT(S.Z2):"BEGIN USING 
THE CURSOR TO DIGITIZE 
THE LINE." 

440 DISPLAY AT(8,3):"TOTAL 
DISTANCE: " 


DISPLAY AT(12,2):"WHEN 
FINISHED SELECT ""M"" TO 
RETURN TO MENU." 


460 БОБОВ 750 :: 
: GOSUB 650 
CALL KEY(0,K, 5): 

1 IF S=ASC("M")THEN 190 
X1=X :: Y1-Y 

TD-2TD«D&UPI 

$00 DISPLAY AT (B, 18) z ABS (TD) 5 V$ 
510 GOTO 460 
S20 ТА=0 :: 


GOSUB 680 : 
470 


480 
490 


DISPLAY АТ (5,3): 
"DIGITIZE ALONG OUTER LINE OF 
AREA TO BE COMPUTED." 
DISPLAY AT(8,3): "HIT THE 
KEY WHEN 


neque 
FINISHED." 


GOTO 550 
&00 TA-TA*(C(COYP-YS) /2) X CXS-XP) 
610 DISPLAY АТ (5, 5): "ТОТА. AREA:": 


ABS (TARUPI~2) ; "SQUARE"; V$ 
620 DISPLAY АТ (20,2): "НІТ THE 
KEY TO SELECT THE MENU." 
ACCEPT AT(22,12):16 IF 
I$í»"M" THEN 630 ELSE CALL 
CLEAR :: GOTO 200 
END 
REM SUBROUTINE TO COMPUTE 
DISTANCE BETWEEN POINTS 
OO. YI OR, Y) 


м"" 


660 р=50К(((Х1-Х) ^2) + CCY1-Y) ^20) 

670 RETURN 

680 REM SUBROUTINE TO DEFINE X,Y 
COORDINATES 

690 X=VAL (SEG$ (D$,5,5))/1000 

700 Y-VAL(SEGS (D$, 9,5) 2/1000 

710 RETURN 

20 REM SUBROUTINE TO ASSEMBLE 

STRING 

730 DS="" 

740 INPUT #1:С1% 


CALL KEY(0,K,5) 

760 IF K-ASC("M")THEN 190 

770 IF K=ASC ("A") THEN 600 
SOSUB вос 

RETURN 

FOR Z=1 TO 15 
D$-D$X&CHR$(ASC(SEG$ (C19, Z, 
1)) -128) 

NEXT Z 

ZO RETURN 
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In this age of runaway inflation... 


Look what $825 will buy 


The HIPAD™ digitizer 


Inexpensive input to your computer | 

The HIPAD™ digitizer can be used for both converting graphic information into | 
digital values and as a menu. Utilizing either the stylus or the optional cursor, the 
operator can input graphic data into the computer by locating individual points on 
the digitizers 11" x 11" (28cm x 28cm) active area. In the "stream mode” a contin- 
uance of placements of coordinate pairs may be input. 

Not a kit, the HIPAD™ comes complete with both RS-232-C and parallel interfaces 
and has its own built-in power source. The origin is completely relocatable so coor- 
dinates may be positive or minus for a true reference value and oversized material 
may by input by simply resetting the origin. 

Accurate positional information, free form sketches, 
even keyboard simulation 

All can be entered using the multi-faceted HIPAD™ digitizer. Its capabilities and 
low price make the UL listed HIPAD™ a natural selection over keyboard entry, inac- 
curate joysticks, or expensive approximating light pens. It’s perfect for inputting 
isometric drawings, schematics, X-rays, architectural drawings, business graphs, 
and many other forms of graphic information, as well as creating your own graphics. 


Use it with Apple II™ , TRS-80 Level [1 7м, PET ™ or other 


popular computers 

The HIPAD's?M built-in RS-232-Cand parallel 8 bit interfaces make it all 
possible. (For Apple Il order DT-11A, for TRS-80 or PET order DT-11). 
Furthermore, you get English or metric scaling, data format (Binary/BCD/ASCII), 
selectable baud rates, and resolution of either .005" or .01". 


1 


The ideal input device for the small 
System user, 


For complete information, contact Houston Instrument, One Houston Square, Austin, Texas 78753, 
(512) 837-2820. For rush literature requests, outside Texas, call toll free, 1-800-531-5205, 

For technical information ask for operator #5. In Europe, contact Houston Instrument, 
Rochesteríaan 6, 8240 Gistel, Belgium. Phone 059/27-74-45. 


TM HIPAO is a trademark of Houston Instrument houston instrument 


Available with optional display. ДЕРГЕ is а trademark al Aopie Computer n GRAPHICS DIVISION OF 


PET is a trademark of Commodore Business Machines, Inc. BAUSCH S. LOMB ® 


“US. Suggested retail price 


“WRITE YOUR 
OWN PROGRAMS” 


Solution for Problem 
May/June Issue 


REM HRSA SATA 

REM з s 

REM з NUMBER MATCH t 

REM x EXPANDED x* 

REM x x 

REM ROTATE ITE eee 

REM 

REM BY JAMES DUGAN 

REM 997ER VERSION 7.81.1 

RANDOMIZE 

BOSUB 620 

FOR I=1 TO 25 

LET A-INT(RND£10) 

LET MSGS=MSGS%STRS (A) 

CALL CLEAR 

PRINT "HERE IS THE NUMBER": : 

PRINT "YOU HAVE";D; "SECONDS TO STUDY IT": 
FOR DELAY=1 TO 100 

NEXT DELAY 

PRINT ТАВ (5) ; М59%: 

60508 530 

CALL CLEAR 

GOSUB 360 

LET T-T*1 

NEXT I 

GOTO 720 

PRINT "TYPE THE NUMBER" 

INPUT RES$ 

IF RES$<>MSG$ THEN 450 

CALL CLEAR 

PRINT TAB(11);"GOT IT!"::11:::::: 

CALL SOUND (1000, 262,1,330,1,392, 1) 

FOR DELAY=1 TO 400 

NEXT DELAY 

RETURN 

PRINT “SORRY! THE NUMBER WAS: ";MS6$ 
CALL SOUND(1000,-3,1) 

FOR DELAY=1 TO 500 

NEXT DELAY 

PRINT :111: 

INPUT "DO YOU WANT TO CONTINUE? 
OR ""N""."1:ANS$ 

IF АМ5%< >"Ү"ТНЕМ S60 

RETURN 

FOR DELAY=1 TO DX335 

NEXT DELAY 

RETURN 

PRINT :i::: 

PRINT "THE LONGEST NUMBER YOU" 
PRINT "REPEATED CORRECTLY WAS ";T 
PRINT "DIBITS LONG":::: 

STOP 

REM XXINITIAL SCREENS 

CALL CLEAR 

PRINT TAB(9);"NUMBER MATCH": 33: 
PRINT TAB(S I CHALLENGE YOU TO REPEAT A” 
PRINT TAB(5);"SERIES OF NUMBERS. ": 
PRINT TAB(S); “EACH TIME YOU GET IT RIGHT" 
PRINT TAB(S);"I WILL ADD ANOTHER DIGIT":: 
PRINT "HOW MANY SECONDS DO you" 

PRINT “WANT TO STUDY THE NUMBER?" 

INPUT "(.1-10)":D 


RETURN 
END e 


vayan, 


CORRECTION: 
“How To Write Your Own Programs” 
May/June 1981, p. 11 [Ex. 3, Step 4, Coding] 


Due to a typographical error, tine 140 was incorrectly listed. The 
correct statement should have been: 


140 If N=99 THEN 150 ELSE 110 
or, reduced to an even simpler expression: 
140 IF N<>99 THEN 110 
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Consumer Electronic Show . . . from р. 49 


additional storage devices at each student station. [Watch 
for an in-depth product review in a forthcoming issue of 
99'er Magazine.] 


Additional Software 


TI's floor display was subtly “engineered” to drive 
home the point that its rapidly growing software arsenal is 
already quite substantial. All pathways led into a central 
"software monolith"—a huge display case covered with all 
of the existing Command Module packages. Of all the 
software that was actually. available for “hands-on” testing, 
Í was most impressed with the Command Modules produced 
for TI by Scott Foresman and Company—a leading publisher 
of school text books. Addition & Subtraction Гіѕ the perfect 
example of an interactive program that utilizes а// the special 
features (and utilizes them we//) of the TI machine—includ- 
ing speech. Between the unique creative programming envi- 
ronment of T! LOGO and the polished, animated, Sessame 
Street-style drill and practice software of Scott Foresman, 
it appears that the TI microcomputer is destined to assume 
a leadership position in the field of computer-based educa- 
tion. [Watch the September/October issue for a review of 
the new Scott Foresman software.] 

The most significant piece of software at the show, how- 
ever, was kept confined to a “back room,” I say “most signi- 
ficant” because with it a serious programmer can pare away 
the layers of “friendliness” on TI's mild-mannered consumer 
computer to expose the heart of the extremely powerful 
16-bit machine within. This stand-alone (not part of the 
UCSD Pascal Development System) TMS9900 assembler 
will be released on Command Module and will come with a 
thorough reference guide. TI obviously has a lot of expe- 
rience in writing and documenting TMS9900 assembler 
packages, so we can expect this one to be a quality product. 
Incidentally, the assembler and full-featured text editor 
were largely lifted from ТІ” 990-series of business com- 
puters. 


With typical Command Module simplicity and efficiency, 
at the touch of a number key you can (1) ASSEMBLE, (2) 
EDIT, (3) LOAD & RUN, or (4) RUN. The text editor 
provides you with a horizontally scrolling (in 20 column 
tabs) 40-column “window” into the full 80-column screen, 
and executes at “blinding speed” significantly faster than 
the one written in pseudocode that comes as a part of the 
UCSD Pascal Development System (see 99’er Magazine, 
May/June 1981, p. 55). Soon, programmers with a T1-99/4 
or 99/4A disk system (one disk drive required) will be able 
to snap in this Command Module and be off and running. 
The prospects, therefore, look very good for the develop- 
ment of a host of serious, high-caliber new applications and 
simulations software for end users (LOADable into the 32K 
Expansion RAM and CALLable through Extended BASIC), 
Software of this type has not yet appeared because of the 
limitations of speed and high memory overhead imposed by 
a BASIC programming environment. 


That was the summer CES as | saw it—all in all, an im- 
pressive performance from Texas Instruments. There was a 
world of difference between the TI at the winter CES, five 
months earlier in Las Vegas, and the TI exhibiting this 
summer in Chicago: The feeling this time—readily observa- 
ble in the spirit and excitement of attending TI sales and 
management personnel—seemed to be one of "We've come 
a long way, Baby . . . ” It makes one anxious to tap some 
more “reliable sources” to find out what TI is planning for 
the next CES this winter... aq 
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elcome to QWERTY Academy 
Ws school where everyone 

can either learn typing, or im- 
prove their existing typing skills. The 
Academy was named after the first six 
letters (left to right) on the second row 
of keys found on a standard typewriter. 
The instructors at QWERTY are proba- 
bly already familiar to you. In fact, 
most of you are sharing your home with 
one right now. That's right-a Texas 
Instruments T1-99/4 personal computer, 
whose color graphics and sound capa- 
bilities make it oneteacher you'll actual- 
ly have fun learning from... 

There are several differences between 
the TI-99/4 keyboard and a standard 
typewriter Keyboard. Beginners won't 
have to worry about this until switching 
to a regular typewriter, At that point, 
the necessary adjustments are easy to 
make. Those of you who already "touch 
type" should learn the special fingering 
procedures needed for efficient typing 
on the TI keyboard. This will permit 
your letter writing to go faster, with 
fewer mistakes, and allow you to enter 
code more efficiently with fewer syntax 
errors when programming. 

One main difference in the Keyboards 
is that there is not a "home" key for the 
right little finger (“pinky”) to rest upon. 
A “dummy” key is available (on a over- 
ay from Texas Instruments) to help 
solve this problem. Another difference 
is the placement of the ENTER key: 
The TI-99/4 computer has the ENTER 
ey where the typewriter has a SHIFT 
ey (or where the period would be if 
you're using a dummy key), so a typist 
may tend to ENTER more than he or 
she wishes. And when, for example, a 
comma is needed, a typist must use a 
eft-hand SHIFT to have it print correct- 
ly. Also, since there isn't a SHIFT key 
or the right hand, the symbols on the 
eft side of the keyboard require press- 
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ing the SHIFT key with the left little 
finger, and pressing the symbol with 
either the left index or middle finger. 

The instructional program that fol- 
lows assumes that its users are already 
familiar with touch-typing techniques 
and just need to learn and practice the 
symbols on the T1-99/4 keyboard. A se- 
ries of programs for teaching touch typ- 
ing to beginners will commence in the 
next issue. In the meantime, beginners 
can practice with the symbols if they 
wish, or can save the program until after 
mastering the alphabetic keys. There 
will be versions (with only slight differ- 
ences) for both the TI-99/4, and the 
new, soon-to-be-available T1-99/4A with 
its standard typewriter keyboard. This 
magazine will also provide programs for 
experienced touch typists who wish to 
improve their proficiency. 


The Program 


The program starts with the period 
(decimal), the only symbol that does 
not require the SHIFT key, and pro- 
gresses through the other symbols. 
Suggested fingering for each of the sym- 
bols is presented. After each symbol or 
set of symbols is presented, there is a 
practice drill which includes the new 
symbol and previously learned symbols. 

Each drill consists of actual phrases 
and statements that a programmer 
would use. You must type five phrases 
correctly to complete the drill and move 
on to the next lesson. A phrase is chosen 
randomly from nine phrases entered as 
data, and it is printed on the screen. Af- 
ter the prompter “beep,” you must 
copy the phrase. If you type the phrase 
correctly, that phrase will not be used 
again; but if you type it incorrectly, it 
may be used again until a total of five 
phrases are correctly typed. 


Part 1: 
Learning the 
Keyboard Symbols 


By Regena 


Because only a left-hand SHIFT key 
is available, the left little finger presses 
the SHIFT key and the middle finger 
presses the !, @, and # keys. You may 
prefer to use the index finger on 96, $, 
and # and the third finger on ! and @, 
and also use the right index finger for ? 
rather than the left, After most of the 
symbols have been presented, six of the 
rarely used symbols are listed with their 
suggested fingering. There is not a drill 
for the final six symbols because they 
do not appear in programming state- 
ments other than perhaps a PRINT 
statement or a variable name. You press 
any symbol to continue the program. 

After all the symbols have been in- 
troduced, you have a choice of starting 
the instruction over, having a final re- 
view, or ending the program. The final 
review consists of ten phrases or state- 
ments chosen randomly from the fifteen 
possibilities. You type the ten state- 
ments, and are given a score of number 
right and number wrong. 

The program uses color graphics and 
sound to enhance the instruction, Musi- 
cal phrases from Chopin’s "Fantasie 
Impromptu” are played at the title 
screens and after each drill, 


Programming Techniques 


This is a full-memory program so 
some conservation techniques were nec- 
essary. PRINT statements are "stacked" 
by using colons to indicate new lines. 
Also, DATA statements contain over 
three lines of data {less than 112 charac- 
ters), There are no REM statements (ex- 
cept for the title header). The CALL 
SOUND statements contain only the 
melody note; there wasn’t enough 
memory for accompaniment, 

In lines 430-760, graphics statements 
are interspersed among the CALL 
SOUND statements to define the special 


characters and colors while the music is 
playing. 

Statements 810-880 and 4370-4450 
print the keyboard a line at a time ra- 
ther than using HCHARS, which are 
slower. 

The drill phrases and typed responses 
are on a yellow background. This makes 
it easier to type in responses underneath 
the prompt. For example, you can tell 
if you have pressed the space or not. 

Nine phrases are read in as string var- 
iables in data. The phrases in the DATA 
statements must be enclosed in quotes 
because they contain commas and other 
symbols that would otherwise be unac- 
ceptable in a DATA statement. For 
phrases that contain quote marks, three 
quotes must be used if the quote is at 


the beginning or end of the phrase, and 
two quotes if it is within. An example 
is: 500 DATA "PRINT ""HI"""* 

In a FOR-NEXT loop (statements 
1530-1740, 3590-3790, 3880-3960), 
one of the phrases is chosen randomly, 
It isprinted on the screen using HCHAR. 
A user's response is received by a CALL 
KEY statement and printed on the 
Screen a letter at a time as it is typed, 
and combined in another string variable, 
B$. This method is slower than using 
PRINT and INPUT statements, but has 
the advantage of not scrolling the screen, 
not messing up graphics, and avoiding 
user input error. Only 28 strokes are 
allowed for a user to type. No back- 
spaces are permitted. This is an instruc- 
tional program for learning the symbols, 


therefore users should not be fast 
enough typists to notice the relatively 
slow response time. 

Typed responses are compared with 
the prompts. If they are the same, an 
arpeggio is played and the phrase P$(J) 
is set to """ (null) so it cannot be used 
again. If the typed phrase is incorrect, a 
low noise is sounded, and 1 is subtracted 
from I in the loop counter. You must 
type 5 correct phrases to get out of the 
loop and complete the drill. That phrase 
also remains in the batch of available 
ones for possible use in the drill. Each 
time a new phrase is picked randomly, it 
is checked to see if it is null. If so, an- 
other phrase must be chosen, 


САЈТОТ * et aa tise 
РЕЛДЕ А ЖА ài ч "E à 
енн АТОМ OF THE PROGRAM 2120-2370  Iastrictions and ‘drill fos (anti: ) 
s Leatning:the Keyboard Symbols 2380-2560 · Instructions and drill for + i ‘ 
МЕ МЕ 2570-2700 Instructions and drill for = 
e : 2710-2850 Instructions arid-drill for ^ and `$ : 
mensions P forage of 15 phrases 2860-3060 Instructions and drill for p & +> ' 
ТТН 3070-3260 Instructions.and,drill for; PP 
1 1 cledis ‘the: screen and: prints the title; defines 3270-3360 — Instructions for all other symbols; : 
* t graphics Я aracters.: : +». 3370-3450 Prints menų ‘stteen. for ‘choice ‘to‘start ‘over, 
‘Draws’ T 1-99 /4 console.: `+ have final review or end program. . 
poets bbls nd defines special graphics char- 3460-3810 Final review of ten'phrases; includes scores, 
sacters and:colors, «<:>. + 3820 Returns to'men screen.” 
$d їРгїї Prints subtitle screen and: plays music while 3840-4100 Subroutine for. performing пейт" 
* RM 5 poridit bi the‘ keyboard. 4110-4170 Subroutine for correctly:typed phrase. 
30 $ ine s or, period or decimal. 4180-4310 Sübrohripe for printing the given and 
M М МУ, $ typed phrase, 
| ҮҮ 4320-4360 Subroutine for inepirectly typed phrase. > 
| an iun ЛСП 4370-4450 Subroutine for printing the keyboard, 
| M ctions for Comm 4460-4600 Subroutine for drawing the'right hand fingers. 
1 His ? Drillsfor comma, : :: 4610-4660 Subroutine for: blinking the: middle finger red. 
. 10; :Instrhttibhs and arin for = and + 4670 END. 
РЕНН 
ЕТТІ) dishécitintenons MM 3 D 
159 on sisi t EE 470 CALL CHAR(105, "“O3070F OF OFOFOFOF ") 
* TYPING SYMBOLS X 480 CALL CHAR (106, "COEOFOFOFOFOFOF ") 
120 REM ****ttxsisititiirrt 490 CALL CHAR(107, "FOFOFOFOFOFOFOF ") 
Е 130 REM 99°ER VERSION 7.81.1 $00 CALL SOUND (40, 494,5) 
i 185 АЫ BY REGENA $10 CALL SOUND(40,554,5) 
520 CALL SOUND(2£T,494,4) 
160 REM 530 CALL CHAR (124, *00000000003C7EFF* ) 
170 DIM P$(14) 540 CALL SOUND(T,440,4) 
iso E cee a "n 550 CALL CHAR(120, “OFOFOFOFOFOFOFOF") 
, 560 CALL SOUND(2tT,587,3) 
i 200 CALL CHAR(153,"FFFFFFFFFFFFFFFF") $70 CALL CHAR (121, “O3070F OFOFOFOFOF™) 
210 CALL CHAR(154, "OQFFFFOOOOFFFF ") 580 CALL CHAR (122, "COEOFOFOFOFOFOF ") 
220 PRINT TAB(D j"T Y P I N G"::TAB(L; 590 CALL SOUND(T, 659, 3) 
"DN  THE"::TAB(11);"TI 99/ 600 CALL CHAR(123, "FOFOFOFOFOFOFOF ") 
23121131: 610 CALL SOUND (6%T, 740, 2) 
230 CALL CHAR (155, "000000FFFF") 620 CALL CHAR(128, "007446654474") 
240 CALL CHAR (154, "FFBFSFBFFFFBSFB8FB8") 630 CALL CHAR (129, "OOBEBS8888888") 
250 CALL CHAR (157, “FFFFFFFF") 640 CALL CHAR(130, "ООЕЕВАССВАЕА") 
260 CALL CHAR (158, “FOFOFOFOFOFOFOF™) 650 CALL CHAR(131, "0078427ВОА7А") 
2 CALL COLOR (16,2, 12) 660 CALL SOUND (64T, 880, 1) 
- 670 CALL CHAR(132, "005754D75454") 
290 CALL HCHAR(X,7, 152, 18) 680 CALL CHAR (133, "OOBEOBO80808") 
{ 300 NEXT X 690 CALL CHAR(134,"0") 
310 CALL HCHAR(15,7,155,18) 700 CALL CHAR(13S5,"FFFFFFFFFFFFFFFF") 
) 520 CALL HCHAR (13,20, 154,4) 710 CALL SOUND (337,784,2) 
| 330 CALL HCHAR (14,20, 154, 4) 720 CALL COLOR(13,2,7) 
340 FOR Y-20 TO 23 730 CALL COLOR(9,12,1) 
350 CALL VCHAR(16,Y, 153,7) 740 CALL COLOR(10, 12,1) 
360 CALL HCHAR(Y-2,8, 153, 11) 750 CALL SOUND (387,740, 2) 
370 NEXT Y 760 CALL COLOR(12,12,1) 
ЗВО CALL HCHAR(22,8, 183,11) 770 CALL SOUND(32T, 659,2) 
390 CALL HCHAR(19, 9, 156,9) 780 CALL SOUND (281,740,2) 
400 CALL HCHAR (20,9, 154,9) 790 CALL SOUND (T, 587,3) 
410 CALL HCHAR(21,10,157,7) воо CALL SOUND(44T, 440, 4) 
420 T=200 810 RS=CHRS (152) 
430 CALL SOUND(2T, 440,5) 820 FOR 121 TO 9 
440 CALL CHAR(S6, *FFFFFFFFFFFFFFFF") 850 R$-R$k" “SCHRS (152) 
450 CALL CHAR(97, "00000000003C7EFF ") 840 NEXT I ; 
460 CALL CHAR(104, "0FOFOFOFOFOFOFOF ") Continued on p. 76 
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UMEN CHESS 


got the "intelligence" to beat you 
їп a game of chess? It’s all in the 
program, you say? But then where did 
chess-playing computer programs come 


Е ver wondered where your computer 


from? You might suppose that the 
impetus for the development of these 
programs came from chess players 
themselves. But in fact, this was not the 
case at all. |t was researchers in the field 
of artificial intelligence (psychologists 
and computer scientists) who we have 
to thank for those embarrassing check- 
mates... 

The goal of these researchers was to 
determine the nature of intelligence 
itself: what precisely it was, and conse- 
quently, what it was not. This was no 
easy task. They hoped to shed some 
light on this problem by getting com- 
puters to do things that if performed by 
a human would require “intelligence.” 
It didn’t take long to figure out that 
chess was a natural: It presumably re- 
quired highly intelligent behavior, and 
yet, it was “contained” enough so that 
initial programs designed just to play 
“legal” games would not be prohibitive- 
ly large. As these programs were de- 
veloped, it soon became obvious that to 
progress from legal games to good, or 
even just reasonable play, required close 
attention to basic theory and concepts 
as understood by humans. For example, 
the number of possible positions after 
only the first ten moves in a game is a 
number having over a Aundred zeros in 
it! Hence, looking at all possible posi- 
tions is clearly impossible. 


About the Author 

Jerry Wolfe is a professor of mathematics 
at the University of Oregon in Eugene, Oregon. 
He has been playing chess since the age of 
eleven and began playing in chess tournaments 
at the age of fourteen, He is the 1979 Oregon 
Open champion and has won numerous other 
local tournaments in the Pacific Northwest 
during his chess "career" Currently he 
holds the official rating of candidate master. 
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By Jerry Wolfe 


As a consequence of this recognized 
need for a higher level of understanding 
of the game, strong chessplayers had to 
be consulted. One of these was interna- 
tional master David Levy of Scotland. 
Levy is perhaps best known for his 
$10,000 bet (made in August 1968) 
that even within a decade, there still 
wouldn't be a computer program that 
could defeat him in a match. In the 
years since his bet (which he won easily), 
Levy has been a frequent visitor at com- 
puter conferences, where he lectures 
and plays simultaneous exhibitions 
against several of the current programs. 
Incidentally, he also acted as a consul- 
tant to Texas Instruments in the devel- 
opment of the Video Chess program, 


with brute force searching techniques to 


choose a move, Therefore, they are lim- | 


ited by how well the program “under- 
stands” chess theory and can “think” 
like a human player, and by speed and 
memory considerations. The speed and 
available memory determine how far 
ahead the program can look and how 
many positions can be examined and 
evaluated in a given amount of time. 
The number of moves the program can 
look ahead in a given position is called 
its search horizon” (Levy's term). 

For these reasons, even though they 
play relatively strong chess, chessplaying 
programs have certain characteristic 
weaknesses which can often be ex- 
ploited. For example, a program may 
sacrifice a bishop or a knight on one 
side of the board to win a rook (with a 
knight usually) in a corner on the other 
side, and leave the knight trapped after 
it captures the rook. To any human 
chessplayer, it would be evident that the 
knight was permanently trapped and 
would eventually be lost—leaving the 
player with only a rook (5 units) to 
show for the loss of two minor pieces (a 
total of 6 units). However, the com- 
puter would merely consider the situa- 
tion a gain of two units (lose a bishop or 
knight and gain a rook) as long as the 
stranded knight could not be captured 
within the number of moves in its search 
horizon. The limited search horizon 
leads to other situations where short 
term expedients are followed to the 
detriment of position. 

Future improvements in speed will 
extend the search horizon of chess pro- 
grams and thereby increase their playing 


"Even though they play relatively strong 
chess, chessplaying programs have 
certain characteristic weaknesses 


which can often be exploited." 
ee 


Levy has therefore provided a valua- 
ble link between the artificial intelligence 
community and the large community of 
chessplayers. He, perhaps more than 
anyone else, has been in the best posi- 
tion to measure the rate of computer 
chess progress. In his view (and mine as 
well) the rather recent advent of micro- 
processor chessplaying machines will 
make chess popular and accessible as 
never before. The revolution has just 
begun! 


As indicated above, chessplaying 
programs do not attempt to find a move 
by searching all possible combinations 
of moves. Rather, chess programs com- 
bine chess theory and concepts together 


strength even further. In my opinion, 
without considerable improvement in 
the longer range strategic capabilities of 
these programs, they will not be able to 
reach the level of world-class human 
players. However, we players in the 
other 99.99% had better watch out! 


As an experiment, | recently pitted 
my Video Chess (a ТІ Command Module) 
program against the Boris machine with 
the Morphy module. Boris-Morphy is 
reputedly the strongest commercially 
available microprocessor chessplaying 
machine. The match consisted of play- 
ing the Video Chess program at its 
highest level (Intermediate, 200 seconds 
per move) against the Boris-Morphy ma- 


chine at three different levels from high 
to low. Although the Boris-Morphy pro- 
gram won all three games; the Video 
Chess program obtained a winning posi- 
tion against the two lower levels, but 
could not find the knock-out punch. 
The top level of Boris-Morphy seems 
clearly stronger than Video Chess. All in 
all, the results were not bad and since 
the top current level of Video Chess is 
called "Intermediate," we may look for- 
ward to further strengthening of the 
program. | hope to report on similar ex- 
periments with other machines in future 
articles. 


The two problems I'll leave you with 
this time are both from games by famous 
chessplayers. The first position is from a 
game of "speed" chess played in 1912 
between American Edward Lasker (who 
died recently at age 96!) and former 
English champion Sir George Thomas. 
The rules were, | believe, that neither 
player could allow his own clock to get 
more than five minutes ahead of his op- 
ponent's clock. To find such a pretty 
mating combination at that speed is im- 
pressive. The second position was played 
by the great American champion Harry 
Nelson Pillsbury near the turn of the 
century inan exhibition where he played 
blindfolded against 22 different oppo- 
nents simultaneously! Blindfold play is 
not as difficult as you might think--try 
it against your Video Chess program 
sometime—but to (successfully) play 22 


such games is phenomenal. In recent 
times George Koltanowski has played 
blindfolded against more than 50 oppo- 
nents simultancously. But Pillsbury's 
achievement is- magnified by the fact 
that he could perform well in blind 
simultaneous play against masters! aq 


SOLUTIONS TO THE PROBLEMS 
IN THE LAST ISSUE: 


Problem No. 1: 


1. D3- D8 check EB -D8 
2. D2 - G5 double check. 
(а) 2... D8- E8 
3. D1 - D8 checkmate 
{b)2... D8 -C7 
3. G5 - D8 Checkmate. 


Problem No. 2: 1... c3-G3 


Black appeared to be in trouble since 
after the apparently forced retreat of his 
queen out of danger, white could capture 
the rook on H3 and be decisively ahead 
in material. Black had forseen all this, 
however, and replied with the crushing 
move above. White has three ways to 
capture the black queen (which must 
be captured else mate on H2 is inevita- 
ble) —all unsatisfactory. 

(а) 2. H2-G3 D4-E2 checkmate. 
(b)2. F2-G3 D4-E2 check. 
3. G1-H1 F8-F1 checkmate. 
(c) 2. G5-G3 D4-E2 check. 

3. G1-H1 E2-G3 check. 

4. H1-G1 G3-E2 check. 

5. G1-H1 H3-C3 

and black is a full piece ahead 
with an easy win. 
In the actual game, white resigned after 
++. C3-G3. 


Problem No. 2 


White Pawns: A2, C3, H2 
Knights: none 


Bishops: E3, E4 
Rooks: none 
Queen: H4 
King: H1 
Black: Pawns: A7, B6, C5, H7 


Knights: none 


Bishops: C6 
Rooks: none 
Queen: F7 
King: H8 


Problem No, 1 
White: Pawns: A2, B2, C2, D4, F2, G2, H2 
Knights: E4, E5 
Bishops: D3 
Rooks: А1, H1 
Queen: H5 
King: El 
Black: Pawns: A7, B6, C7, D7, E6, G7, H7 
Knights: B8 
Bishops: B7, F6 
Rooks: A8, F8 
Queen: E7 
King: G8 


Black to move and mate in three moves. 


New Problems (The solutions with appear in our next issue.) 


White to move and mate in several moves. Can you find the fewest necessary? 


SPACE 
GAIVIES 


Vol. 1 


ALIEN 
ATTACK 


Blast down alien saucers 
and the “Ultimate Alien" 
to score. Five lives against 
the endless alien army. 
Fast action, music, graph- 
ics. Difficulty increases 
with skill. 


X-WING 
PILOT 


Squads of TIE-Fighters 
are escaping from a raid 
on your rebel base. Your 
mission: Destroy all with 
limited fuel, or “Good- 
Bye Rebel!” Graphics, 
Sound, 3 skill levels. 


INVADE 


THE EMPIRE 


Commanding a starship, 
youmust destroy 4 enemy 
vessels to gain control of 
sector ON-9. This chal- 
lenging space game re- 
quires skill & strategy. 
Graphics, Sound, 3 skill 
levels. 


Programmed in TI BASIC, 16K 
Complete Documentation 
& Instructions included. 


ALL 3 GAMES 


$14.95 Cassette 
$19.95 Disk 


Regular Price 


INTRODUCTORY SPECIAL: 


Mention this ad and pay only 
$8.95 cassette 
$12.95 Disk 


Send Check or Money Order To: 


The Software Exchange Group 
P. O. Box 97 
North Chili, NY 94514 
Tel: (716) 594-9474 
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By Regena 


he purpose of this program is to 
T tutor civil engineering students 

who are studying statics or struc- 
tures. It is limited to a simple determi- 
nate beam supported at the ends, and 
loaded with a concentrated load, a uni- 
form load, or a combination of a con- 
centrated load and a uniform load. A 
basic knowledge of elementary statics is 
prerequisite. 

There are six sections in the program. 
The student's objective is to learn how 
to solve for the reaction forces A and 
B at each end of the loaded beam. 


1. Concentrated load at the center 
Newton's laws of force and moments 
are reviewed. The general solution of a 
load P applied at the center on a beam 
of length L is developed for the reaction 
forces A and B at each end of the beam. 
The student then does two problems. 
The load P and length L are chosen ran- 
domly for the problems. If he enters an 
incorrect solution, the correct solution 
is given, and he is given another problem. 


2. Concentrated load anywhere 

Newton's laws of force and moments 
are reviewed. The general solution of a 
load P applied a distance D from end A 
on a beam of length L is derived for the 
reaction forces A and B at each end. An 
example problem is given and solved. 
Then a problem is given for which the 
student enters his answers. The program 
prints the method of solution. For the 
next problem the student enters his solu- 
tion. If he is incorrect, the program 
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Civil Engineering 


Fundamentals 


shows him how to solve the problem, 
and he is given another problem to solve. 


3. Uniform load 

The uniform load is considered as an 
equivalent concentrated load acting at 
the centroid of the loading pattern. The 
first example is a uniform load for the 
length of the beam, and is solved in 
general terms. The student is then given 
a problem, If he enters an incorrect an- 
swer, he is shown the correct solution 
and given another problem. 

If the student is correct, a sample 
problem with uniform loading over part 
of the beam is presented. Then he is 
given a problem of this type and asked 
to solve it. If he is incorrect, the solu- 
tion is shown and he is given another 
problem with this type of loading. 


4. Combination loads 

Instructions are provided for how to 
solve a beam with one concentrated 
load and one uniform load. The student 
is then given a problem with combina- 
tion loads chosen randomly. The pro- 
gram draws and labels the beam for each 
problem. If the student enters an incor- 
rect solution, the correct solution is 
printed and he is given another problem. 


5. Problems only 

No instruction is given. The program 
randomly chooses a beam length and 
loading pattern, and prints the problem. 
It then draws and labels the beam. The 
student enters his answers; if he is incor- 
rect, the correct answers are given and 
another problem is printed. 


6. Your own problems 
The student enters the beam length and 


Simple Beams 


loading specifications. The program 
computes the reaction forces A and B at 
the ends. 


After each section has been completed 
with correct solutions, the student is 
given the choice of having more of the 
same kind of problems, entering his own 
problems, or returning to the menu 
screen. 


Programming Techniques 


This program is a teaching aid or tu- 
tor, so it incorporates pauses, allowing 
the student to work on the problem be- 
fore continuing. The student must enter 
a correct solution to the problem before 
he or she can go on to a different kind 
of problem. If the student enters an in- 
correct solution, the correct answers 
are printed and another problem of the 
same type is presented. 

The numbers for each problem are 
chosen randomly (yet appropriately) for 
each beam. The length of the beam is 
between 10 and 20 feet. The concen- 
trated load is 100 times a random num- 
ber from one to twenty (i.e, 100 to 
2000 pounds), and is placed at a dis- 
tance D from end A (randomly chosen 
within the bounds of the length of the 
beam). 

The uniform load is 10 times a ran- 
dom number from one to ten (ї.е., 10 to 
100 pounds per foot). For some of the 
problems, the uniform load is acting 
over the length of the beam. For more 
advanced problems, it is between two 
points on the beam measured by the 
distance from end A (as L1 and L2). L1 
must be equal to or greater than zero, 
and less than the total length of the 


beam, L2 must be greater than L1, and 
less than or equal to the total length of 
the beam. 

The problems are written in "story 
problem'' form by using print statements 
in subroutines, with the program using 
only the statements that are necessary 
for each loading condition. 

After the student has had time to 


Y-INT(LI/LL* 22)+6 
Y is the y-coordinate used in CALL 
HCHAR or CALL VCHAR statements. 
6 is the displacement of the end of the 
beam from the left side of the screen. 

in statement 6760: 

Z-INT(D2/LL* 22)-1 
Z is the number of characters to be 
printed horizontally for the uniform 


The labels for the values on the beam 
are variable and are printed using string 
variables, For example, the concen- 
trated load P may be three or four digits 
long (100 pounds to 2000 pounds) in 
the written problems, but the student 
may input an even longer number. This 
label is printed by using statements 


5850-5930 (see Figure 1). aq 
draw and label the problem on his own  [oad. D2 is the distance 12—11. 
paper, he can "PRESS ENTER TO 
CONTINUE" and the beam will be 3 
drawn on the screen with approximate Figure 1. 
proportions. . . i 1В$=5ТЕ$(РР) Converts. PP to a string variable. 
The general beam is drawn with a pin | FOR П=1 TO LEN(LB$) LEN finds the length of B$; 
at end A and a roller at end B. 2Ј= 1+4 Calculation for y-coordinate. 
The distances are approximated by | CALL HCHAR(I-S JJ,ASC(SEGS(LB$,I1,1))) Prints each digit in order, 
using a variable y-coordinate—an integer | NEXT II 
value of the fraction of the distance (D | CALL HCHAR(I-5,J41,32) Prints a space after last digit. 
or L1) divided by the total beam length | CALL HCHAR(I—5,JJ42,76) Prints L. 
multiplied by the number of characters | CALL HCHAR(I—5 ,JJ+3,66) Prints В. 
printed in the general beam. For exam- | CALL НСНАК(1—5 JJ+4,83) Prints S. 
ple, Statement 6750 is 
i 
EXPLANATION OF THE PROGRAM 100 REM £X CIVIL ENGINEERING 34 
110 REM 
Line Nos. à 120 REM 
100-250 Prints the title screen, 120 ДЕН BY REGENA 
PASA arney abis border, | 150 REM 997ER VERSION 7.81.1 
350-540 Defines special graphics characters for drawing 190 Ен. CLEAR 
the beam and loading and sets colors for them. | 180 PRINT TAB(7) ;"CIVIL ENGINEERING" 
| 550-680 Prints second screen, diagram of simple beam. 190 PRINT ::TAB(9); “FUNDAMENTALS” 
# 690 Goes to menu screen for choice of problems. 200 CALL COLOR(2,1,1) 
700 Choices 1 and 2, concentrated loads, branch | 210 ERINT SALTA, UIS BSA EATERS SEATS 
to here, | 220 P" 2 
710-810 Prints instruction Screen, 220 ш et SINPLE BEANS is 
820-900 Prints second instruction screen. 250 PRINT ТАВ‹7) ; "REX XX 3 3333341" 15i1:: 
910 For Choice 2, branches to 1720 | 260 FOR E=1 TO 10 
920-1000 `: Prints problem: | 270 CALL COLOR(2,6,5) 
1010-1070. Draws and labels general beam. 280 FOR DELAY=1 TO 75 
! 1080-1180. Shows solution of reaction forces in general | 290 CALL Ee m "M 
terms. - Же зы 
1190-1270 cr and labels beam with centrally applied | 320 EST DELAY. TU v 
1280-1330 General statement for central load. | 330 CALL CLEAR 
1340-1370: Chooses random numbers for problem. | 550 CALL COLOR(2,2,1) 
1380-1400. Writes the problem. | 360 CALL COLOR(9,2,1) 
1410-1440. Draws and labels the beam, | 379 Car CERA Өн o OLOFOFOFOFOFOE ; 
1450 Asks for A and B from student. 3 e z 
1460-1540. Compares student’s answers with calculated A00 CALL CHAR LISS EE ELEC ERE EE EE RD 
solution and prints appropriate remark. | 410 CALL CHAR(99, "1824242442428181") 
1550-1580 Has another problem. 420 CALL CHAR(100,"1824428181422418") 
1590-1610: Asks if student wants more problems and | 450 CALL Снак (101, "0F09122449") 
branches accordingly. 440 CALL CHAR(102, "FF24499224") 
1620-1700: Drawsand labels abeam for student's problem. 2s CALL CAR (1053 oC lesa ies уны а 
1710 Solves and checks it; 9 " НА 
wees т 470 CALL CHAR(105, "1010101010101010") 
1720-1790 ‘Prints instructions for second type of beam, 480 CALL CHeR(05, "9292545438381010") 
concentrated load anywhere. 490 CALL CHAR(112, "FFFFFFFFFFFFFFFF") 
erp paws and NE beam. 500 CALL CHAR(113, “FOFOFOFOFOFOFOFO") 
Рі olves the problem. | 510 CALL CHAR (114, “OF OFOFOF OF OFOFOF") 
$ 1980-2050. ‘Chooses a problem and prints it. $20 CALL CHAR(115,"FF") 
2060-2160. · Draws-and labels the beam. 550 CAE Epi SEC OB EPOBOBSOOEESO 
2170-2190. Solves the problem. 5 ‘ А 
2210-2240 ` Compares input answers with calculated solu- 230 сот Mea SUSEORTER Ar eae 
tion. 570 1-17 i | 
2250-2270 . If-student is incorrect, solves the problem in Ss GOSUP 5390 
detail. 590 J=12 
2280-2290 — Returns for another problem. 600 GOSUB 5550 
2300-2330 - Solution was correct. If it is the second prob- piis Foi TN jo 
lem, another problem is chosen. 2 is iet NIE 
2340-2360. Offers the student the choice for more prob- RES MNT PENARIE; 17:112109 
lems. $50 CALL УСНАЯ (І-3.27,115,5) 
2370-2530 : ‘Solves a problem the student enters. 660 CALL HCHAR(I-2,19,87) 
2540-2600 : Printsthe general problem for a uniform load. | 670 PRINT " FIND THE REACTION FORCES" 
i Continued on p. 79 
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described how the Lamplighter school (a private 

school in Dallas for children from age 3 through the 
fourth grade) became the very first to provide its students 
with a truly computer-rich learning environment through its 
TI LOGO implementations. At the time the article was writ- 
ten, most of the students had been working steadily in 
LOGO for only six months. Children in the nursery school 
and kindergarten were using teacher-written programs to 
explore LOGO, and the other children in grades one through 
four were writing their own programs. There was, aS ex- 


Т he previous issue of 99'er Magazine (May/June 1981) 


Figure 1. 


TO LAZY8 
FORWARD 4 
RIGHT 10 

TEST HEADING = 0 
IFF LAZY8 
FORWARD 4 


EEEF 10 TELL TURTLE 


LAZY8 


Comment: 


TEST checks the heading of the Turtle. If it’s not O (North), 
the Turtle continues to draw the LAZY8. 


After finishing the right-hand circle, the heading becomes 0 and the 
left-hand circle is drawn. 


To really understand why the left-hand circle ever gets completed, 
you have to know something about microprocessors and stack oper- 
ations. Keeping in line with the scope of this article, however, a sim- 
ple anthropomorphic explanation will have to suffice at this time. 
Watch forthcoming articles for an in-depth look at the technical 
aspect of the language. 


Think of the job of drawing the LAZY8 as being given to a group of 
little warkmen inside the computer, The first workman carries out 
the first four lines then decides he needs a rest before continuing. 
Notice that in his initial contract TO LAZY8 he has agreed to even- 
tually carry out the FORWARD 4 and LEFT 10 specifications, The 
work must go on while he rests, so he subcontracts out the next 
stage to another little man. This workman also carries out the first 
four lines, then he too decides to rest. So before he gets to the 
FORWARD 4 and LEFT 10 tasks, he decides to subcontract out the 
balance of the work on the right-hand circle. This process goes on 
with enough little workmen (36 in this case) until НЕАРІМС=0. At 
that time, the last little man carries out his FORWARD 4 and LEFT 
10 tasks, and gives the job responsibility back to the next-to-last 
workman who also carries out his remaining FORWARD 4 and 
LEFT 10 tasks. This reverse process of finishing the last two tasks 
and relinquishing responsibility goes on until the original contractor 
finishes his original job with a single FORWARD 4 and LEFT 10, 
thus completing the left-hand circle in the LAZY8-~GMK 
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AN UPDATE ON 


LAMPLIGHTER ACTIVITIES 


By Henry Gorman ur. 


Department of Psychology, Austin College, 
Box 1584, Sherman, TX 75090 


pected, an age-related trend in programming, with the fourth 
graders generally doing the most elaborate work—although 
many third graders, a few second graders, and a couple first 
graders have indeed produced sophisticated programs. 

A few children even acquired the skill of using 
subprocedures—i.e., breaking a complex program down into 
its several component parts, This is one of the most impor- 
tant features of procedural languages such as LOGO. Most 
students had discovered recursive programming, or "cur- 
sives" as a few called it. In recursive programs one of the 
program lines calls for a new stack to execute the program 
again, You do this by including the name of the program 
within the program itself. All the recursive programs writ- 
ten by the students, however, had the recursive step in the 
last line. [When the recursive step occurs in the last line be- 
fore END, the procedure is said to have “tail-end recursion,” 
For an example of somewhat more sophisticated usage, see 
the LAZY8 procedure in Figure 1—Ed.] 

A number of programs produced exciting video scenes. 
In EXPLODE, 32 differently colored balls splay out from 
the center of the screen to form a circle and then return 
back to the center before repeating the entire procedure. 
One third grader saw how he could place a program which 
printed a message inside of EXPLODE, and thus combined 
recursion and subprocedures. RAINBOW had one or more 
sprites continuously change colors for an attractive visual 
effect. There were also programs which had the TV monitor 
take on a series of sixteen colors, and programs which 
changed the background of the screen to black and created 
unusual perceptual illusions by shooting light-colored shapes 
across the screen, Some even had jets, rockets, or airplanes 
spouting fires from their engines, 

Other children wrote programs 
which put shapes together to create 
scenes, such as a home with a car 
driving down the street in front of 
the home. Most students had written 
utilitarian programs like VANISH SETSPEED O | 
(Figure 2) which caused the sprites SETHEADING 0. 
to move off screen, take on the END 
clear color, carry an empty shape, t 
and which caused all the printing to Figure 2. с 
be cleared from the screen. 

After spring break, several things happened which caused 
a quantum leap in the computer work of the students. First, 
the children were shown how to save their programs and 
shapes on cassette tape. Until then, the students had to 
write in their computer notebooks anything they wanted to 
save. That meant that any elaborate shape had to be repro- 
duced on a grid in an arduous manner, and long programs 


TO VANISH 
TELL :ALL 
CARRY O |. 
SETCOLOR 0 


terial took so much of their time. Now, with the recorders, 
they could use and improve each session’s programs just by 
taping and playing back a cassette. Also, they could design 
and SAVE complex shapes instead of seeing them lost when 
the computers were shut off. 

The children were also shown the TELL TURTLE mode. 
——] This opened upall of the turtle geometry features of LOGO. 
(Turtle geometry is such a powerful idea that some Pascal 
systems have adopted it.) This newly acquired mode, 
coupled with the previously learned SPRITE MODE, allowed 
the students to produce many interesting programs and 
visual effects, As a result of these new developments, many 
of the students soon exhibited a fecling of mastery over the 
computers. 

In the final eight weeks of school there was an exponen- 
tial explosion in the complexity of the students’ programs 
and in their ease with the machines. They quickly learned 
to use variables as inputs, and consequently “discovered” 
the famous turtle geometry POLYgon program which can 
generate any regular polygon, [See Figure 3] Then one 
student found that changing the angle of the turn on each 
recursion could produce beautiful patterns--including a 
striking nested curl in a star pattern. Many students now 
began putting programs together in subordinate and super- 
ordinate structures. Programs contained the unique LOGO 
controls of TEST, IFT, and IFF, as well as the conditionals 
IF... THEN .. . ELSE, plus BOTH and EITHER for con- 
junctive and disjunctive branching. One of the third graders 
wrote a CAI (Computer-Assisted Instruction) program to 
quiz his first grade friends on addition facts using these 
control commands! He then added visual displays of the 


or complex programs required a very long time typing. 
(Remember these children are elementary pupils with little 
typing experience before computers!). 

Students had not used much of their work as founda- 
tions for future work simply because loading the old ma- 


Figure 3. 


TO POLY DISTANCE ANGLE 
HIDETURTLE 

FORWARD :DISTANCE 
RIGHT :ANGLE 

POLY :DISTANCE :ANGLE 
END 


TELL TURTLE 
POLY 90 150 


Figure 4 


ТО. SHUTTLE 
TANK. - 


TO TANK 

TELL 1 CARRY 20 SC 15 HOME 

SH.90 FD 16 

TELL 2 CARRY 21 SC 15 HOME 

TELL 3 CARRY 22 SC 15 HOME SH 270 


ee a CARRY 23 SC 6 HOME SH 270 addends, and encouraging remarks when a student made a 
FD. 32 mistake, or a colorful scene as a reward for the correct 


END 


TO PLANE 
TELL 5 CARRY 24 SC 15 HOME 


answer. 

Using combinations of several user-drawn shapes, stu- 
dents began constructing very elaborate composite pictures. 
One third grade student also discovered how to change the 


SH 0 FD.16 SH 
TELL 6 CARRY 
SH 0 FD 16 

TELL 7 CARRY 


90 FD 16 
25 SC 15 HOME 


26 SC 15 HOME 


characters associated with cach console key [by redesigning 
the characters on a grid “tile” with the MAKECHAR primi- 
tive—Ed.], and decided to tease the teacher. She replaced 


the 3 with a 2, and then called a teacher over for a demon- 
stration. While instructing the computer to print 3 + 3 
(which now looked like a request for the sum of 2 * 2), she 
remarked to the teacher: “Look how dumb this computer 
is... it doesn't know 2 * 2," 

The activity among the third grade students was exciting 
to witness, One began programming dramas in which text 


SH 0 FD 16 SH 270 FD 16 

TELL 8 CARRY 27 SC 15 HOME 

SH 0 FD 32 

SH 270 FD 16 

TELL 9 CARRY 4 SC 11 HOME 
. SH 180 FD 47 SH 90 FD 12 
22-7 ТЫЛ, 10 CARRY 4 SC 8 HOME 
i SH- 0 FD 45 


*:1 §H'270 FD 23 was printed at the bottom of the screen while the story was 

МИ TELL [1234 5 6 7 8] enacted in SPRITE and TELL TURTLE modes at the top 

SH 90:55 20 of the screen. One other third grader was so intrigued by 

‚+ TELL ВС SC. 1 the space shuttle’s landing that on the same afternoon of 

| END. : - the landing, he began working on a shuttle program. First, 

тё "ni n he used MAKESHAPE to construct a faithful replica of the 

; Te 4^ BG - BACKGROUND shuttle, complete with USA monogram, black-and-white 
WAIT 30. FD - FORWARD coloring, and auxiliary rocket engines. Then he worked for 

} SC 0 $c = SETCOLOR. d part of e and a ИЕ or he next morning to 
‹ = write ani ebug his programs. His final superprocedure 

nd 1556 6 SS = SETSPEED launched the shuttle with flames shooting from the engines, 

END jettisoned the auxiliary tanks, orbited the shuttle among 

planets in outer space, returned the shuttle to a dry lake-bed 


Note: 


runway, taxied it to the end of the runway, and stopped it 
for a perfect landing. His programs are shown here in 
Figure 4. 

The gains made by the Lamplighter children with 
LOGO have indeed been impressive. They confirm Papert's 
dictum [Mindstorms, Semour Papert, Basic Book 1980] 
that children should program computers and not vice-versa. 


Mindstorms is available from the 99'er Bookstore. See 
Bookstore Section for additional information, 
99'er Magazine July/August 1981 65 


Listings of TI LOGO procedures are just that—listings of procedures. 
There's no way to print out a transcription of the data needed to 
MAKESHAPE and MAKECHAR as can be done with the HEX 
Codes in ТІ BASIC and Extended BASIC. The only way to show the 
graphics that a program contains is to show it as drawn on a series of 
"tiles" on the grids that appear on screen when the shapes and char- 
acters are first designed, This is similar to CHARDEF routine in 
Programming Aids 1. Space in this present issue doesn't permit these 
graphics to be shown, In future articles when TI LOGO becomes 
generally available, we will reproduce the tiles associated with each 
program featured in the magazine. The listing of the Space Shuttle 
program was included (without the tiles) in this article to demon- 
strate the elegant simplicity of the language structure. -GMK 


99’e BOOKSTORE 


LUE 


Tl BASIC 


LORITEGDUC TION TO 


1 ESÁAESIC, 


INTRODUCTION TO TI BASIC 


By D. Inman, R. Zamora, and R. Albrecht. 
This comprehensive work, written by three of the fore- 
most microcomputing programming experts in the coun- 
try, will teach you all about computers and BASIC for use 
with the Texas Instruments Home Computer. Even if 
you've never worked with a computer, you can now teach 
yourself how to use, program and enjoy the Т! Home 
Computer with this entertaining, and easy-to-read work 
The authors have carefully constructed this introduction 
so that you will soon be writing BASIC programs and ex- 
ploiting all of the excellent features of the ТІ machines. Its 
14 chapters and Appendices cover all of the essential pro- 
gramming statements and machine features 

CONTENTS: Gateway to Adventure. Do !t Now: Sound 
and Color Graphics. Simple Programming. Looping 
Sound and Color. More Programming Power. Beginning 
Simulation. More Program. Control! Statements. Using 
Data Files. One Dimensional Arrays. Two Dimensions and 
Beyond. Color, Graphics, Sound, and Animation. More 
Strings. Editing. Subroutines and Your Personal Library 


paper, $10.95 
1980, 320 pages, 7'/ x 9*... 


PROGRAMMING BASIC WITH THE 

TI HOME COMPUTER 

By Herbert D. Peckham. 

A tutorial guide that helps you learn TI BASIC in a 
friendly, relaxed manner. It goes beyond Beginner’s 
BASIC furnished with the TI-99/4, and introduces 
the full range of TI BASIC features including color 
graphics and sound. Its. 11 chapters are written in a 
complete-the-blanks, programmed instruction format. 


paper, $10.95 
1979, 306 pages, 6 x 9 
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BASIC COMPUTER PROGRAMS 
FOR THE HOME 


By Charles D. Sternberg. 
The only book named in an update article in the Personal 
Business section of Business Week (June 23, 1980)! 

An invaluable book at a great price, it contains over 75 
practical home application programs that will be helpful 
to the novice or experienced owner in increasing the use- 
fulness of any home computer. Each program is docu- 
mented with a description of its functions and operation, 
alisting in BASIC, a symbol table, sample data, and one or 
more samples. Programs included are: Home Financial 
Programs; Automobile Related Programs; Kitchen Help- 
mates; Scheduling Programs for Home Use; List Pro- 
grams for Every Purpose; Miscellaneous Programs for the 
Home; Tutorial Programs for Home Use; Conversion Pro- 
gram; and Hobbyist's Diaries. 


paper, $9.95 
1979, 336 pages, 7'/ x P/a 


GAME PLAYING WITH BASIC 


By Donald D. Spencer, Abacus Computer Corporation. 

Enjoy the challenge of competition with your computer. 
Amuse yourself with such games and puzzles as 3-D Tic- 
Tac-Toe. Nim, Roulette, Magic Squares, the 15 Puzzle, 
Baccarat. Knight's Magic Tour, and many others. The 
writing is nontechnical, allowing almost anyone to under- 
stand computerized game playing. The book includes the 
rules of each game, how each game works, illustrative 
flowcharts, diagrams, and the output produced by each 
program. The last chapter contains 26 games for reader 
solution 


paper, $9.55 
1977, 176 pages. 6 x 9, illus. 
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BASIC COMPUTER PROGRAMS 
IN SCIENCE AND ENGINEERING 


By Jules H. Gilder. 

Save time and money with this collection of 114 ready-to- 
run BASIC programs for the hobbyist and engineer. There 
are programs to do such statistical operations as means, 
standard deviation averages, curve-fitting, and interpola- 
tion. There are programs that design antennas, filters, at- 
tenuators, matching networks, plotting, and histogram 
programs. There is even a justified typing program that 
can be used in typesetting. All programs in the book have 
been tested and are fairly universal; so you should have 
no difficulty running them on your system. You won't find 
anywhere a more comprehensive collection of usable, 


BASIC COMPUTER PROGRAMS FOR 
BUSINESS: VOL.1 


By Charles D. Sternberg 

A must for small businesses utilizing micros as well as for 
entrepreneurs, these two volumes provide a wealth of 
practical business applications. Each program is docu- 
mented with a description of its functions and operation, 
a listing in BASIC, a symbol table, sample data, and one or 
more samples. 

Volume 1 contains over 35 programs covering: budg- 
ets, depreciation, cash flow, property comparisons, ac- 
counts payable, order entry, warehouse locations, inven- 
tory turnover analysis, job routing, resource allocation, 
production scheduling, etc 


ready-to-run BASIC programs! 
і See also software section. volume 1, paper, $10.95 (t) 


paper, $9.95 1980, 384 pages, 7 x 9/4 
| , $9. 


1980, 160 pages, 6 x 9, illus. 


PRACTICAL BASIC PROGRAMS 

D Edited by Lon Poole 

i Here is a new collection of 40 programs you can easily key in and use 
on most microcomputers. Each program does something useful. Practi- 


Ade cal BASIC Programs is especiatly useful in small business applications. It 
| > solves problems in finance, management decision, mathematics and 
r3 Р statistics. It requires no prior programming knowledge. Each program is 


thoroughly documented. The book contains sample runs, practical 
problems, BASIC source listings, and an easy to follow narrative to help 
you realize the potential uses of each program. This book is a valuable 
reference for anyone who needs a wide range of useful programs: income 
averaging, present value of a tax shield, lease/buy decision, financial 
statement ratio analysis, checkbook reconciliation, home budgeting, 
nonlinear breakeven analysis, Program Evaluation and Review Technique 
(PERT), statistics, data forecasting divergence, musical transposition, 
H Bayesian decision analysis, etc. paper $15.99 
1980, 200 pages, 8% x 11 
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HOME COMPUTERS CAN MAKE YOU RICH 
By Joe Weisbecker. 

Here's a valuable text for every home computer owner 
and nonowner interested in spare-time income opportun- 


ities. You'll be introduced to the microcomputer industry, 


and the types of people involved in it. You'll find out how 
to learn more about this new industry. Discussed are 
basic principles of making money, freelance writing, pro- 
gramming, consulting, inventing, computer-made prod- 
ucts, investing, and much more. The goal of this book is 
to stimulate computer designers and microcompute? 
companies to direct more effort to the home computer 
market. 

CONTENTS: The Microcomputer Industry. What You 
Need to Know About Making Money. Resources You Can 
Use. Choosing Your Hardware. Writing for Money. Creat- 
ing and Selling Programs. Services for Sale. Use Your 
Imagination. Invent Your Way to Success. Making Your 
Money Grow. Working at Home. 


5177-8, paper, $6.50 
1980, 128 pages, 6x9 


99’er BOOKSTORE 


' hf | Beat | 21 


BEAT THE ODDS: MICROCOMPUTER 


SIMULATIONS OF CASINO GAMES 


By Hans Sagan. 

Here's an extremely useful programming guide that pro- 
vides realistic simulations of five popular Casino games: 
Trente-et-Quarante (Thirty and Forty), Roulette, Chemin- 
de-Fer. Craps, and Blackjack. Each of the five chapters 
has the same structure. It begins with a computer run, 
displaying facets of the programs, followed by an expla- 
nation of the objectives and the physical execution of the 
game. Acceptable bets and how to place them are dis- 
cussed and systems and/or strategies laid out. Finally, the 
computer program is developed and various modifica- 
tions of the program are detailed. 

All programs are written in BASIC and heavily REM'd 
for readability and conversion. A comprehensive bibliog- 
raphy, a glossary of French gambling terms and phrases, 
and hints on the discrepancies between BASIC dialects 
are included, as well as a summary of maxims of probabil- 
ity theory. 


5181-6, paper, $7.95(t) 
1980, 128 pages, 6x9 


MINDSTORMS: CHILDREN, COMPUTERS 

AND POWERFUL IDEAS 

By Seymour Papert 

The definitive work on the philosophy behind 

LOGO. Excerpted in the May/June issue of this 

magazine. hardcover, $12.95 
1980, 230 pages, 6 x 9 


TEACH YOUR BABY MATH 

By Glenn Doman 

The book upon which the Tiny Math / program 

(in the May/June issue of this magazine) is 

based. hardcover, $8.95 
1969, 110 pages, 6 x 9 


TEACH 
YOUR 
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Beginner's 
Guide 

for the UCSD 
Paseal 
System 


r fes 


by Kemet. Henles 


INTRODUCTION TO PASCAL 
{INCLUDING UCSD PASCAL) 
By Rodnay Zaks 
This is the first book on Pascal that can be used by 
persons who have never programmed before, but 
more generally it is a simple and comprehensive intro- 
duction to standard and UCSD Pascal for anyone— 
beginner to experienced programmer--who wants to 
learn the language rapidly. The logical progression 
and graduated exercises—designed to provide practice 
as well as test skill and comprehension—enable the 
reader to begin writing simple programs almost im- 
mediately. This book presents all concepts and tech- 
niques in a clear and simple style, making it accessible 
to beginners and useful to experienced programmers, 
All Pascal features are covered in detail, from basic 
definitions to complex data structures. An extensive 
appendix section presents a listing of all symbols, 
keywoods and rules of syntax for programming in 
Pascal, providing a concise summary and important 
reference tool. paper $14.95 
1981, 440 pages, 7 x 9 


BEGINNER'S GUIDE FOR THE 

. UCSD PASCAL SYSTEM 

| By Kenneth Bowles 

| This highly informative book is written by the 

originator of the UCSD Pascal System. It is designed 

i as an orientation guide for learning to use the UCSD 

i Pascal System, and features tutorial examples of pro- 

| gramming tasks in the form of self-study quiz pro- 

grams. Once familiar with the system you will find 

the guide an invaluable reference tool for creating 

advanced applications. paper $11.95 
1980, 204 pages, 6 x 9 


Е AN INTRODUCTION TO 
Microcomputers 
А е 


AN INTRODUCTION TO MICROCOMPUTERS — 
VOLUME O: THE BEGINNER’S BOOK 

By Adam Csborne 

Here's the book to start with if you know nothing 
about microcomputers but wish to learn about them. 
With the help of numerous illustrations and a 
wonderfully lighthearted text, Vo/ume O will help 
give you a sound understanding of the basics of 
microcomputing. You'll learn about the microcom- 
puter's construction, terminology, internal logic, and 


AN INTRODUCTION TO MICROCOMPUTERS — 
VOLUME 1 — BASIC CONCEPTS 

By Adam Osborne 

Using concepts that are common to all microprocessor 
systems, Volume 7 develops a detailed picture of what 
a microcomputer can do, how it does what it does, 
and how the capabilities of microcomputers can best 
be applied. Basic Concepts presents the fundamental 
logic framework upon which microcomputer systems 
are built, so that the reader can evaluate the applic- 
ability of microcomputers to any practical problem. 
This new revised edition incorporates all recent micro- 


application. If you have plans to program microcom- 
puters, or if you must make decisions related to 
microcomputer applications, 7he Beginner's Book 
will provide the terminology and general concepts 
you'll need. This volume also provides an excellent 
background for the beginner wanting to go on to An 
Introduction to Microcomputers: Volume 1 — Basic 
Concepts. paper, $7.95 

1979, 240 pages, 5x 8 


processor developments. Concepts are discussed in 
terms of modern hardware configurations, and ex- 
amples of common applications are drawn from to- 
day's most popular devices. For example, the logic 
instructions and programming concepts of the new 
16-bit microprocessors are discussed in detail, and 
current logic distribution configurations are used 
throughout the text with numerous illustrations and 
examples, Programming mnemonics conform to the 
newly proposed IEEE standard. This is the first book 
in print to use them. paper, $12.99 

1980, 320 pages, 7 x 9 
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Home Secretary ... from р. 47 
20 CALL SOUND (200,800, 4) 


S30 PRINT :"*# WARNING жж MEMORY GETTING 
FULL (LSIZE="3STR# (LSI ZE)&"/3809) ": 

840 RETURN 

850 5С=4 


860 BOSUR 3050 

870 PRINT "PRESS" 1 — TO ADD MORE 
DATA” "2 — TO ALTER THE DATA" 

B80 PRINT - TO DISPLAY THE 

"4 ~ TO DISPLAY ONE ENTRY": 

870 PRINT :"S - TO USE THE DATA" “6 ~ TD 
STORE DATA FILE"::"7 - FOR PRINTER LISTING 

900 PRINT "B - TO END PROGRAM” 

910 IF FLAG1-O THEN 930 

$20 PRINT " #4% UPDATE DIRECTORY xxx" 

770 GDSUR 3120 

940 IF KEY<49 THEN 850 

750 IF KEY3S6& THEN 850 

960 60508 500 

770 ON (КЕҮ-48) 60508 9%0, 1010.1450, 1520, 5150, 
2140, 4280, 4450 

980 RETURN 

990 GOSUR 430 

1000 RETURN 

1010 REM DATA ALTERATION 

1020 INPUT "WHICH ONE? ": МФ 

1030 IF Ms 

1040 PRINT be NEW DATA AT 

CURSOR ^D' TO DELETE THE ITEM" 
ER "ENTER? FOR ND CHANGES": 

1050 GOSUB 1800 

1086€ FRINT 

1070 FLAGL 


1080 These > i 
1090 12M 

1100 GOSUR 770 
1110 T--T 


1120 GOSUR BOO 

11 INFUT А1Ф (М) STIS; TMPS 
1140 IF TMFSs HEN 1220 
1150 IF TMP$« THEN 1200 


1160 àl$(002" ^" 
1170 GOSUB 2410 
1180 NsN-1 
1190 RETURN 
0 A1$(0-TMPS 
10 FLAG2-1 


INPUT AZS$(M)MTIS:TMPS& 
IF TMPS=""THEN 1250 
1240 А2% (М) =ТМЕФ 

1250 INPUT АСФ (М) STIS: ТМРФ 
© IF TMF&-""THEN 1280 
АТФ (М) =ТМРФ 

INFUT А4% (М) УТІФ: THES 
1290 IF TMP$=""THEN 1510 
BQO А4% (М) =ТМРФ 


1 
1 
H 


12 


O IF 7<192 THEN 1380 
О PRINT :"%* REENTER LAST SET $3" 
GOSUH 1130 

à GOSUB BOQ 

O GOSUE 1550 

1400 ОМ T GOTO 1150, 1020,1410 

1410 RETURN 

1420 REM DISPLAY ENTIRE DIRECTORY 
1430 IF FLAGZ=0 THEN 1450 

1440 GOSUR 2410 

1450 FOR 1=1 TON 

M=29~-LEN(A2G(I)} 

T$-STR$(D &"." 

1480 PRINT TAB(A-LEN(TS)) 1 T$: 318 D) ; TAB(M) ; A28 CI) 
1490 IF 1=20 THEN 1520 

1500 IJF 1=40 THEN 1520 

1510 БОТО 1530 

1520 GOSUB 3100 

1530 NEXT I 

1540 GOSUR 3100 

15950 RETURN 


1560 REM SINGLE ITEM LISTING 
1570 INPUT "WHICH ONE?  ":Ms$ 
1580 IF M$: "THEN 1640 


590 GOSUB 1900 
1600 GOSUB 2060 
1610 PRINT А1Ф(М)::82% (М) :: AS$ (M2 2 :AAS (M) : : AS CM) c € 
1520 BOSUB 1450 
1630 ON T GOTO 1600,1570,1640 
1640 RETURN 


1550 PRINT :"PRESS":" 


E TO LIST UP";" у TO 


LIST DOWN":" 5 TO SEARCH MORE 
1550 GOSUE 3100 
1670 T=3 
1590 IF KEY< >69 THEN 1720 
1690 T-1 


1700 IF M21 THEN 1780 

1710 M=M-1 

1720 IF KEY42588 THEN 1760 

1720 T-1 

1740 IF M=N THEN 1780 

1750 M=M+1 

1760 IF KEY<>83 THEN 1780 

1770 T=2 

1780 RETURN 

1790 REM SEARCH ROUTINE FOR SINGLE ITEM LISTING 
1800 IF ABS(ASC(MS)-52)54 THEN 1850 

1810 M=VAL (MS) 

IF M:zN THEN 1940 

M-N 

RETURN 

FOR I=i TON 

M-I 

IF M$<=AiS(I) THEN 1890 

NEXT I 

1890 RETURN 

1900 REM LOAD DATA 

1910 PRINT "ENTER" 
1920 INFUT DEV 


С51"::"2. psKi" 


OTHER" 


csi" 

1950 GOTO 2016 

1960 IF DEV<>2 THEN 2000 
1970 INPUT "ENTER FILE NAME: ":FlL$ 

1980 DEV$="DSK1. "SFILS 

1990 GOTO 2010 

2000 INPUT "ENTER DEVICE МАМЕ: ":DEVs 

2010 OPEN W2:DEV$, INTERNAL, INFUT ,FIXED 192 
INPUT #2:0FT.N,FILG, DSTES,LSIZE 

) IF OF T=! THEN 2050 
2046 READ CAT# (D) .CATS (2 
PRINT ssFILS&t:"LSIZE(S 


UPDATE: i DATES; 
FOR 1 TON 
INPUT #2:81%:]), A28 (I2, 62$ (12, 64$(0I2 ,AS$ (D) 


2090 THEN 2120 
2100 TO 1020 
2110 


IF FLAGZ 
GOSUE 2410 

"ENTER 1. CS1" 

Е 2. DSK1" 

= 3. OTHER"1::::; 


) THEN 2170 


"YOUR CHOICE?" : ANS 
(ANS< 1) + САМ5 >5) THEN 2170 
ON ANS GOTO 2230, 2250,27510 
DEV$-"CS1" 

GOTO 2520 

INPUT "ENTER FILE NAME. ": NAMS 
IF LEN(NAM$)<11 THEN 2290 
PRINT "ENTER NO MORE THAN TEN 


LETTERS 


“DSK1. "&NAMS 

2220 

"ENTER DEVICE NAME. ": DEVS 

ENTER DATE. ": DATES 

DEVS. INTERNAL, OUTPUT. FIXED 192 
ОРТ, №, FILS, DATES,_LSIZE 

FOR 1=1 TCN 

PRINT $2:51$(1),A28(1) , A3$ (12,64$(12,A5$ (12 
NEXT 1 

CLOSE #3 

FLAGI=0 

RETURN 

REM SORTING ROUTINE 

FLAG2=0 

CALL SOUND (100, 800, 6) 

PRINT :::" *%%%%% SORTING DATA X&ixi" 
TF (N-1) THEN 2470 

RETURN 

FOR I=1 TO N 

NEXT I 
d NT (N/2) 


70 99er Magazine July/August 1981 


"NIS WH du x BML 


*c 


SCOT EYL É u (a 


(OL AVL? (Listy 


ама 

Opty МЭНІ (Аа) 256425 dI 
088 мані С.М.) 25У=ч JI 
09% МЭНІ O=S JI 
(S'4'0) A34 1799 
LAMOMWSHNI Ulud 
ан 
їмїчя 
NHDLSH 
** 35013 
£OLXSN 

ooTS Hhns09 

н LX3N 

tV NƏHL N-I зї 
5*0 SSY 
ODAYL LD sU 
OP AOL FCI SZYU (OT) HULT (I) STU 
тіс) ныг: iNIMd 
WeDEA-I 

6 OL т=н H04 

l Ol O-P MO4 
(6/N) ANTS L 

їпаїпа *злза:св мачо 
ОРУ NSHl 68¢>A3N dI 


"(ON/A) 
WW 3507 ANY WUNSOHd 
їлөн 01 HSIM ПОА OG. 


n (М/А) CAQUSH 
SIWON 309i^3ü H31N3. 
H3i1NIMd NO 9NIISIT 31314402 


BAZ 


00st 
Obrt 
o8tvt 
Otty 
озуу 


oSvv 
Ottt 
ort 
Ofrr 
Oley 
Ooott 
O&z* 


ові 
о 
092+ 
0527 
Ott 
осте 
ость 


яп509 

ANIMd 

LNANT 

язу 

мыяп1зч 

т# 35073 

CI LX3N 

г LXSN 

(HD) зчн2%ъ1=з1 

(HO C CD чынае TYI 

Z£ 0L t=¢ X04 

"ami 

$1:14 INING 

оё OL ї=гї УОЗ 

4ZZZSH,:14 N340 

OLE’ МЭНІ O=dy JI 

SNIINIMd N33H238 W34 

NHLL3H 

(тво bea H) менсн 1093 

C(I'EZU'z4A'H)HUHOH 1192 

(I'88*Z«^*H) менон 1193 

CISZY’ CH) TH) чонан TYI 

CT T9*A*H) чонон 002 

(S)N33438 7102 

C OLX3N 

OIO$ МЭНІ O<>SNLYLS 4I 

AYTA Oi ї=г чоя 

(SNLYLS L'O АЗА 1392 

(F'Z£E'Z«^*H) менон 1702 

»2013 d31vSN34H02 мэм 

мнп1зч 

0922 0109 

IC LX3N 

Zov 8П509 

91-8 

SGA 

Brszy 

сс LX3N 

Tiss 

rü-Ac130 

EC ix3N 
za 


ve LXSN 
£ü-Av 13d 
v=S 

SNLYLS 3I 
осор ansos 
vtD€*Beztg 

6 01 SP-vf uO0d 
сс+68#=с0 

5 OL =fr yos 
Z2r+se=zZy 

6 OL о=2г X04 
IP4Bb-IU 

ет Gi O-if MOd 
TaüsAva3a 

+=5 

t=sr 

zz- 

£Z-H 


K3H 


OTOb мэні Ò< 


HOLYM 4015 


NYNL3Y 

OAZE мані Z8=1 dl 

ooze Hns09 

*.3SDONIINOO 01 ABA ANW.IGNIUOU 


NMOG алон„: 1NINJ 
0692 МЭНІ CB«7A33 dl 
OSES МЭНІ 8Z-A33 ЗІ 
OZZ£ МЗНі Z8-A3A Jl 


Wid сі M 


осот gnsog 

«SAWN 

мэм Süd N HILemdoLs 
iuvis 01 5 ләїазч 

Oi M » SS3Hd.*: LNT 


г LX3N 

(éz'óOOtvr'OZZ)GNnOS TWI 

(Z* (LT) ZJ O (1) ta OOD GNNOS 1192 
(O-1)$z-1-fI 

T+(O/ (1-1) ) INISI 

обес 0109 
(Z'9z21'O'lee'Oooz)GNnOS TY3 
O9SE МЭНІ ОСІ ЗІ 

(S1) WASL 

0092 NƏHL 4G«($dM1)28U dI 
0O92 N3Hi Bb>($4WL)OSY dI 
T+A=A 

сте CG5dH1) OSU ASH) монон "1302 
(E C SL saasssdut 

701 т=г N03 

S454To751 

1+7 

O9vz NƏHL OI» dI 

EEEO SSY: (W) SYY 

PW SEVEN) SZUECW STO INTYd 
($1)N3221 

(W) $zZU-$1 

B-^ 

£Z=H 

чәзло 772 

OT9S МЭНІ. .=ФЫ dI 

02ST ansos 

*,7019IQ OL 34 INYM NDA. їмїза 
Sa'va'za'za'rg пезы 
IS'tc'Ss'zc'z vivd 

OZEE 3H01S3H 

MOT104 SAYVTSG SKIL MOO013 WAY 
3NOHd YIO ызы 


NYNL3Y 

оотх ansos 
(L'9z'vz'ZI)HUH2A TWI 
(L'9c'z'zI)HeH2OA TYI 
(GI 'ozfz*51)HUH2H TWI 
(BT'9CZ *тт›мәнэн TWI 


Эні T" JO 1500 TV101. LNINd 
I 1хэм 

CCT) SZ) 9^«unsz-ns 

N OL T=I НОЗ 

OWNS 

0622 NBHL 1=190 JI 

SWHUHSOHd ALITILN WAY 

NYALBS 


OZIZ МЭНІ O=SNLVLS dI 
(501915 ‘АЗУ O) АЗМ T1923 
SNNILNOS 
Gi A33 ANY 686344, ANIM 
МЫПІЗЫ ADM WAY 

мчп1зач 

(28)N33H238 NYI 

M9312 TWI 

N3BYOS 132 + MU3'3 Way 
NMfIL34 

$IL= (NI) $50 

tdWl= (МІ) Фр 

Фі= (Яі) sou 

$W= (ХІ) Ф200 

SO= (NI) sIU 

NYALIN 

CAC) $SU- CUI) ФСО 

(ND) $9U- (AL) soy 

CAD) $20= (41) $y 

CAD) SCU- CNT) $ZV 

CAD) STU (ALI SIS 

NHÜOL3H 

(І) Ф59=ФІЈ 

CAT) Феу= Фан 

CAI) $20=$1 

CAL) $Z0=$W 

CAL) Ф19=%0 

NMLLSM 

0042 0109 

1+1=1 

0482 МЭНІ N=ŻI dI 


ооо ansos 

IN=NI 

Ovez ansoa 

їм=лг 

osez ап509 

т=з 

0952 0109 

TSN 

TN=NN 

I-ZdN=IN 

©=1 

C+N=Z dN 

Z=LO1 

ozsz 0109 

1+1=1 

OFZZ МЭНІ ZN-«I ЗІ 
08420892 0109 131 NO 
ооох ansog 

0462: 0109 

HPRAI 

ov6z ansog 

O99Z МЭНІ SO=> O)$T149 AI 
TALEC 


OZ9Z N3HlOiD)STIU-S(LeMDP)$iUg JI 
OZ9Z МЭНІ NN-MP 41 

O99Z МЭНІ мм<ягс dI 

Al£c-uD 

osBz ansoQg 

TN=HI 

N=NN 

I-IZN-IN 


оёте 
OZTS 


OTTE 
OOTES 
обо 
ово 
OL0E 
0902 
осо 
ожо 
оо 
ого 
ото 
ооо 
обёё 
DEAZ 
OL6E 
O96 
056 
р ТА 
OL6z 
0262 
ото 
DOSZ 
0682 
OBEZ 
08е 
0982 
0262 
Ota 
Ores 
ocgz 
отв 
оовг 
o6cz 
OBLE 
0422 
0922 
0246 
ое&& 
оа 
OLE 
ос 
DOLZ 
руа 
овег 
0292 
0992 
OSZ 
Or9z 
оя 


отег 
oo9z 
0682 
ов: 
OLST 
oraz 
oss? 
Oraz 


OSSZ 


*** Алезәлоәѕ әшоң 


71 


July/August 1981 


99'er Magazine 


DEALER DIRECTORY 


Goleta, CA 


See our complete line of personat 
and business computers including: 
Texas Instruments, Atari, Apple, 
Altos, Data General, Also All ac- 
cessories, software and supplies. 
Plus al that's new in personal 
electronics. Personal Electro- 
nics, 5674 Calle Real Center, 
Goleta, CA 93117, (805) 
967-5322. 


Los Angeles, CA 


A software/systems house primari- 
ly engaged in the sale of software 
for Tl and Potymorphic com- 
puters. Hardware sales are usually 
included in a combined turnkey 
package, Prospective customers are 
seen by prior telephone appoint- 
ment only. AAAA Discount 
Computer How's, 13022 Pso- 
mas Way, Los Angeles, CA 
90066, (213) 391-8777. 


Waterloo, IA 


Texas Instruments Large selection 
of Accessories and Software for 
99/4 at Dhein’s True Value, 7 W. 
Airline Hwy, Waterloo, IA 50701. 
Sale prices at store are also given 
on mail orders, Write for price list. 
Dhein's True Value, 7 W, Air- 
line Highway, Waterloo, IA 
50701,(319) 232-6225. 


Evansville, IN 


Independent Register 2414 N. 
Governor (across from Town Cen- 
ter Mall) is the tri-state location 
for Т1-99/4 Hardware/Software, 
Supplies etc. We supply the tri- 
state with popular magazines and 
software for other units. Open 
Mon - Sat. 8-5. Independent 
Register, 2414 N. Governor, 
Evansville, IN 47711. (812) 
424-8246. 


Lexington, KY 


A complete line Texas Instruments 
dealer, We stock atl Texas Instru- 
ments calculators and accessories, 
tearning aids, home computer pro- 
ducts, accessories, peripnerais and 
software. Atari computers and 
Hewlett Packard calculators in 
stask. GBM. Incorporated, 198 
Moore Drive, Lexington, KY 
40503, (606) 276-1519. 


Marlow Heights, MD 


Specializing in Texas Instruments 
99/4 computer and accessories, 
We have a large selection of Soft- 
ware for the TI-99/4, TRS-80, 
Apple, and Atari. We also stock 
Lobo Drives and Epson Printers, 
Wills Computer Store, 4410 
Stamp Road, Marlow Heights, 
MD 20031, (301) 423-4525. 


Minneapolis, MN 


Authorized Texas Instruments 
Т1-99/4 computer dealer offering 
you the best prices in the U.S.A. 
on the computer and all peripher- 
als, Also, a wide variety of printers. 
CRT's available at lowest prices. 
No collect calls, please. Calcu- 
lators, Inc., 7409 Fremont 
Avenue South, Minneapolis, 
MN 55423,(612) 866-8908. 


Great Falls, MT 


We've got the best prices because 
we want your business, Complete 
line of TI products and Epson 
printers, Monthly SALES on а! 
items. Call now or write: IRCA 
Inc., N.E. Bypass Hwy. 87, 
P. O. Box 6125, Great Falls, 
MT 59406, (406) 727-8835. 


Dayton, OH 


The оту full line TI distributor 
stocking Semiconductors, DSG 
{700-800 OMNI Products) TM990 
Microcomputer Boards, Calcula- 
tors, complete in depth inventory 
including 99/4 Products-Software, 
Ohio 1-800-762-9510. Surround- 
ing area 1-800-543.0550.Witl ship. 
Cal us. Esco Inc., P. O. Box 
1166, 221 Crane St. Dayton, 
OH 45403, (513) 226-1133 


Salem, OR 


J. Harvey’s Video Clubhouse 
VCR's, Tapes, Home Computers 
Ti-99/4, Atari 400, 800. 
J. Harvey's Video Clubhouse 
3295 Triangle Drive #142, 
Salem, OR 97302, (503) 
581-1003. 


New York, NY 


"Your Personal Guide to Personal 
Technology." We carry the com- 
plete T I-99/4 System. For demon- 
stration of the TI-99/4 at home, 
school or office, or more informa- 
tion call Next Tech, Inc. today. 
Next Tech, Inc., 350 Fifth 
Avenue, Suite 3308 New 
York, NY 10001, (212) 792- 
8768. 


Call a Dealer Today 


Olean, NY 
Texas Instruments TI-99/4 Home 
Computer Systems, software, 


hardware, and accessories at 
discount prices, APF-Imagination 
Machine. Video Sales and Service. 
BLOISE Electronics, 114 Cen- 
ter Street, Olean, NY 14760. 
(716) 372-8963. 


Rye, NY 


Wide assortment of TI software, 
hardware and accessories all at 
discount prices, Also authorized 
Scott, Foresman dealer. Write or 
phone for nine-page catalog with 
hundreds of items. Microcom- 
puters Corporation, P. O.Box 
191, Rye, NY 10580, (914) 
967-8370. 


Electric City, WA 


Texas Instruments 99/4 Home 
Computer Systems — Wholesale 
prices and not on just the main 
console! Aliso good prices on 
Epson printers and Televideo 
Terminals. For price list, write to: 
Komputar Works, P. O. Box 
483, Electric City, WA 99123, 
(509) 633-2653, 


Green Bay, WI 


We specialize in the Texas Instru- 
ments 99/4 computer. We handle 
a complete accessory line for it, at 
discount prices. Custom program- 
ming for the 99/4 also done, Write 
for a complete price list, The. 
Micro House, 527 Simonet 
Street, Green Bay, W1 54301, 
(414) 432-2871. 


Dealers: 


Listings are $25 per issue; minimum insertion, 3 issues (6 months). 
Prepayment of $75 required. Ads include 35 words describing products 
and services, plus company name, address and phone. (No merchandise 
prices, please.) Call Pat at 503-485-8796 or write 99'er Magazine, Ad 
Department, 2715 Terrace View Drive, Eugene, OR 97405. 
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(503) 485-8796 


ATTENTION TI DEALERS 
Did You Know That You Can Be Reimbursed 
For Advertising Texas Instruments Products 


Local Networking 


with Shared Peripherals 


The TI-99/4 at 
North Texas State University 


By Dr. Kathleen M. Swigger 


Department of Computer Sciences, NT Box 13886 
North Texas State University, Denton, TX 76203 


State University has been noted for its research and 

educational utilization of microcomputers. Efforts 
began in the early 1970s with the school’s fabrication of 
Motorola-based systems for assembly language programm- 
ing. In the fall of 1980, North Texas installed twenty-five 
T1-99/4 systems. These systems are currently being used for 
both student programming projects and faculty research. 

The enrollment in the Computer Sciences Department 
now numbers over 750 majors, making North Texas one of 
the largest departments of its kind in the country. By requir- 
ing all introductory students to complete their programming 
assignments on a Т1-99/4, rather than on a larger machine, 
North Texas is able to handle its already large (and steadily 
increasing) enrollment. Making the microcomputer an inte- 
gral part of the computer sciences curriculum has several 
educational advantages: First, students learn to use a sys- 
tem that is readily accessible to them at school, in the 
home, and in a business. The ease of using the smaller sys- 
tems enable students to begin their coursework with a 
healthy, positive feeling about computers. Additionally, the 
ability to play music, use graphics and even create speech, 
provides students with both challenging and enjoyable pro- 
gramming assignments. Finally, since microcomputers are 
"total" computer systems, students therefore learn and 
more fully understand basic computer concepts such as 
storage, memory, input, and output. 

Another successful project that NTSU has recently com- 
pleted is the networking of several T1-99/4s, allowing mul- 
tiple access to a single disk and printer. The system was de- 
signed mainly for educational environments that operate 
within limited budgets. An increasing number of educational 


Ts Computer Sciences Department at North Texas 


institutions at all levels (elementary, secondary, and col- 
lege) are interested in acquiring microcomputers. But these 
schools need to find systems that allow for disk input, pro- 
vide printed output for teacher grading and analysis, and 
cost as little as possible. In a schoo/ environment, disk 
storage and access is not an on-line problem, Both teachers 
and students need to load and store programs, but they 
generally do not have to gain continual access to data files 
on disk. Therefore, a networking system like the one im- 
plemented at North Texas should solve many of the critical 
problems facing school officials. 

The NTSU networking system includes the equipment 
necessary to connect up to sixteen “slave terminals" to a 
"master computer." The hardware for the network consists 
of three major parts: (1) a master control box, (2) a slave 
control box, and (3) a network bus cable. The master con- 
trol box houses a power switch and LED hex display that 
tells users which terminal is being accessed, as well as the 
network bus cable connection to the slaves, The slave con- 
trol box houses a toggle switch, two single LEDs, cable 
connections to the slave computers, and a cable connection 
to the network bus. Finally, the network bus cable consists 
of a cable with up to seventeen 9-pin male connectors that 
can be connected to the master control box. With this sys- 
tem, students can obtain a hard copy listing of their pro- 
grams by merely sending their programs from the slave 
computer to the master computer. The master system, con- 
sisting of a floppy disk and printer, handles the necessary 
input/output. 

The Computer Sciences Department at NTSU has found 
the TI-99/4 network to be an easy-to-use educational sys- 
tem, and plans to continue using the small microcomputers 
as tools for teaching programming languages and as instru- 
ments for educational research. |t has saved the department 
extensive duplication and the expense of purchasing addi- 
tional 1/0 equipment, о 
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Joystick 1 
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CONTROL 
COMPUTER BOX #3 


Network Bus Cable CONTROL 
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Business. . . from p. 24 


is the same under lease or purchase. You 
expect that after three years you would 
need to trade in this one on а larger mo- 
del. If you buy it, the trade-in allowance 
will be $6000. Assuming that either 
depreciation or lease payments would 
cost a net of only 6096 of the actual 
amounts because of an assumed 4096 tax 
rate, the input to the program would 
therefore be 


1st Component 


[o]: 
п 
-180 | 0] 1 
—6000 [36] 1 


If you want to check, this example gives 
an effective interest rate of about 14.196. 
Presumably, if money costs you less 
than 14.196, it would be advantageous 
to purchase the widget grinder instead 


2nd Component 
3rd Component 


4th Component 


Effective Interest Rate Program: 
Table of Variables 


Arrays: 
А1: amount of each payment in an in- 
vestment component* 


T1: time at which the first payment of 
that component is made (in months, 
from current time 7 0) 

F1: number of months between the 
payments in this component 

М1: number of payments in this 


component 


* An investment component is a series of one 
or more equal payments made at fixed in- 
tervals. Payments may be paid out (+) or 
received (—). 


Parameters: 

U9: upper limit for effective annual rate 
L9: lower limit for effective annual rate 
T9: tolerance: when the interval be- 
tween upper and lower limits (L1, 
U1) is less than this, the program 
stops 


U9: tolerance: when the residual present 


11: 


by the sum of the absolute values 
of all components, is less than this, 
the program stops 

number of components 

index of the current investment 
component under consideration 
(always goes from 1 to C) 

current lower bound on effective 
rate 


: current upper bound on effective 


rate 
trial interest rate, on which to cal- 
culate residual present value V 


residual present value, based on 
trial interest rate R 

: resudual present value at lower 
limit L1 

: residual present value at upper 
limit U1 


: зит of absolute values of compo- 


nent present values 


: present. value of a component at 


rate R 


; temporary variable used in 


computing V4 


: monthly increase factor, using 


of leasing it. value at a trial interest rate, divided rate R aq 
E TTT TEI “т 
. Hi ‘PROGRAM OUTLINE: 460 IF ABS(V/V3)<P9 THEN 930 
+ : V Meng 470 REM GET RESIDUAL VALUE AT UPPER BOUND 
Line: ТОСТЕРЫ 480 R=U1 
ine. Nog, |; ink : | 490 GOSUB 720 
200-280, :Set parameters `< ; зоо U2-V 
250-370: ‘Obtain input.data from user Р 510 IF ABS(V/V3)<P9 THEN 930 
400-560, | Set lower and upper limits, and the residual S20 REM RESIDUAL VALUES MUST HAVE OPPOSITE SIGNS 
ip es: present. value at each: AT THE BOUNDS 
1590-700; ` Iterate: interpolate, іо: веї а new trial interest rate | 530 IF U2112«0 THEN 590 
ў ‚+В; replace eithér upper or lower bound by R 540 PRINT "EFFECTIVE RATE NOT BETWEEN ":L9;" AND ";U9 
720-920 : Subroutine:: computes: residual present value at | 550 PRINT “CHECK YOUR INPUT OR CHANGE BOUNDS L9 
кез the trial raté Rs also computes УЗ P cara Aas 
930-930 ; Report final result 570 REM INTERPOLATE BETWEEN LOWER & UPPER BOUNDS 
E: =- 580 REM FOR NEW TRIAL RATE R 
S90 В= (1202-0102) / (U2-L2) 
100 REM  *fXXXt3€*XXwYXXXWEXktftiXkkxikk 600 GOSUB 720 
110 REM # EFFECTIVE INTEREST RATE ж $10 IF ABS(V/V3)<P9 THEN 930 
120 REM + AND x 620 REM TRIAL RATE REPLACES WHICHEVER BOUND HAS 
130 REM ж RETURN ON INVESTMENT + RESIDUAL VALUE WITH THE SAME SIGN 
140 REM PS ESES SCTE CS SCS TSS esse esses $30 IF V&L2>0 THEN 670 
150 REM 99°ER VERSION 7.81.1 640 Ui-R 
160 REM BY GEORGE STRUBLE 450 U2sV 
170 REM 660 БОТО 690 
180 REM 670 Li1-R 
190 DIM A1(10) ,T1(10),.F1¢10),N1(10) 580 L2-V 
200 U9-z0.0 690 IF U1-L1<T9 THEN 930 
210 L9=0 700 GOTO 590 
220 T9-0.05 710 REM SUBROUTINE TO COMPUTE RESIDUAL VALUE V AT 
230 P9-1.0E-4 RATE R 
240 REM ACCEPT INPUT 720 veo 
250 PRINT "ENTER NUMBER OF PAYMENT COMPONENTS"; 730 V3=0 
260 INPUT C 740 FOR I=1 TOC 
270 FOR 1=1 TO C 750 IF N1(I)?1 THEN 790 
280 PRINT 760 REM COMPUTE RESIDUAL VALUE IF ONLY DNE PAYMENT 
290 PRINT "ENTER AMOUNT OF PAYMENT"; 770 V4-z(1*R/1200)^(-TA1 (22 $5141) 
300 INPUT АІ (1) 780 GOTO 880 
310 PRINT "ENTER TIME OF FIRST OF THESE 790 IF В<>0 THEN 840 
PAYMENTS"; 800 REM SPECIAL CASE WHEN R=0 
320 INPUT ТІСІ) 810 VAzNI1(CI ЖА1 (1) 
$30 PRINT "ENTER PERIOD BETWEEN THESE PAYMENTS, 820 GOTO 880 
IN MONTHS"; 830 REM COMPUTE RESIDUAL VALUE OF SERIES OF PAYMENTS 
340 INPUT F1(I) B40 R1=1+R/1200 
350 PRINT “ENTER NUMBER OF THESE PAYMENTS"; 850 VS-(1-R1^C-NT OD $F1 (1) 2) / CI -RI^CFE10D)) 
360 INPUT N1(1) B60 VA-A1(CDXRI^UT T1 CDD) XV5. 
370 NEXT I 870 REM IN ALL CASES, INCLUDE V4 IN V AND V3 
380 PRINT 880 V-Ve«V4 
590 REM SET LOWER & UPPER BOUNDS FOR EFFECTIVE 890 V3-V3*ABS (уд) 
RATE 900 NEXT 1 
400 11=19 910 PRINT "RESIDUAL PRESENT VALUE AT 
410 U1=U9 920 RETURN 
$20 REM GET RESIDUAL VALUE AT LOWER BOUND 930 PRINT 
430 R-L1 940 PRINT "EFFECTIVE INTEREST RATE. COMFOUNDED 
440 5050В 720 MONTHLY, IS "iR 
45а L2=v 950 END @ 
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July /August 1981 


99'er Magazine 


Attention 


BARGAIN HUNTERS 


Receive Hundreds of Classified Ads 
Like These Every Month 


COMPUTER SHOPPER, the new buy, sell, and trade 
publication, is ready to help you with the latest infor- 
mation on personal, small business and large-system 
computers, accessories and software 

Each ad-packed issue is full of bargains you are 
looking for. Included are ads from individuals 
throughout the United States who are selling their 
good, pre-owned equipment just so they can trade-up 
to new equipment coming on the market 

But, COMPUTER SHOPPER'S bargains won't be 
yours unless you subscribe. This useful, money- 
saving publication can become your way to com- 
municate with other buyers, sellers, and traders al! over the nation 


Whether you are a hobbyist or a part-time user, COMPUTER 
SHOPPER will put you in touch with the nationwide computer 
marketplace in time for you to take advantage of bargain oppor- 
tunities. 

Have something to sell? ACOMPUTER SHOPPER subscriber pro- 
bably wants to buy it. 

Looking for a part, component or even a complete system? A 
COMPUTER SHOPPER subscriber probably wants to sell it 


COMPUTER SHOPPER is THE marketplace for anything in com- 
puters and is read by thousands of people who are ready to buy. 


COMPUTER SHOPPER offers a unique format in which classified 
ads are categorized for fast location of specific items. Combining 
this with low individual ad rates — 10 cents a word — 


makes it the ideal place for buyers and sellers to com- 
municate. And, its mix of individual, dealer, and 
manufacturer ads enable subscribers to find what 
they want at the best price possible 

COMPUTER SHOPPER will work for you in other 
ways, too. If you are just thinking about getting into 
computers, it can help you learn product availability 
and prices before you make a decision. And, through 
the timely ads, COMPUTER SHOPPER will keep you 
abreast of changes in the market which could create 
bargain opportunities for you. 

But COMPUTER SHOPPER cannot work for you 
unless you subscribe. Complete the subscription form today and 
put COMPUTER SHOPPER on your monthly reading list 


Yes, | Want To Get The Best Deal! Enter my subscription Io the worldwide computer 
equipment & software publication, COMPUTER SHOPPER, today. If I'm not 100% 
Satisfied with my first issue, my money will be refunded in tull. But I keep that first 
issue. It's my FREE sample. 


Mail my 13 issues (12 regular issues, plus 1 FREE sample) 
C Bulk Rate at $10.00 a year. 


Name 


1| Address 


| City. State Zip 
CHARGE TO MY-:1 MASTERCHARGE, C VISA 


MIC, Interbank #. —.——— Exp Date. 


] 
1 Card # 
, 
n 


y Тһе Nationwide Marketplace for Computer Equipment 


COMPUTER SHOPPER 


P. O. Box F108 € Titusville, Florida 32780 
~ Telephone 305-269-3211 


For faster service, MasterCard & VISA subscriptions only, call TOLL FREE 1-800-528-6050, Ext. 184 


2610-2860 


2870-2930 
2940-2960 
2970 

| 2980-3070 


3080-3090 
3100-3410 


3420-3470 


3480-3510 
| 3520 

3530-3550 
| 3560-3640 
| 3650 


3660-3680 


3690-3890 
3900-3910 
3920-3980 


3990-4120 
4130-4220 


4230 
4240-4260 
4270-4300, 
4340-4370 
4310-4330 


4380 


4390-4450 
4460-4640 
4650-4850 
4860-4930 


4940-4980 
| 4990 
5000-5300 


Subroutines 
| 5310-5360 
1 5370-5520 


5530-5550 
5560-5580 
5590-5620 
5630-5680 
5690-5770 
5780-5800 
5810-5840 
5850-5940 
5950-6030 
6040-6100 
6110-6180 


6190-6240 
* 6250-6280 
6290-6360 


6370-6410 
6420-6490 
6500-6600 
6610-6650 


6660-6720 


6730-6770 


Civil Engineering . . . from p. 63 3 


Gives instructions and illustration for solving 
this type of loading. 

Writes a problem for the student to solve, 
Draws and labels a beam with a uniform load. 
Asks for student's answers. 

Solves for the reactions and compares answers. 
Prints appropriate remarks, 

Chooses another problem. 

Solves example problem of uniform load on 
beam that is between two points on the beam. 
Writes problem for uniform load between two 
points on the beam and solves intermediate 
steps. 

Draws and labels the beam for uniform load, 
Asks for student's answers, 

Calculates solution. 

Corrects student's input. 

If the answer is incorrect another problem is 
given, 

If the problem is correct, asks the student if 
he wants more problems. 

Student enters his own problem, 

Solves and checks the problem, 

Gives instructions to solve for combination 
loads. 

Writes the problem for combination loads. 
Draws and labels the beam for combination 
loads. 

Asks for student's answers. 

Solves for reactions. 


Checks student's answers. 

If the solution was correct, asks the student 
if he wants more problems. 

If the solution was incorrect, does another of 
the same type problem. 

Instructions for entering problems. 

Draws and labels a general beam. 

Asks for student's problem, 

Solves the problem and prints the reaction 
forces, 

Asks if there is another problem. 

END. 

Prints the menu screen of the choices of the 
types of loading for the simple beams, 


Prints error message for length input. 

Draws basic beam, supports, and reaction 
forces, 

Delay subroutine. 

Prints concentrated load, P. 

Subroutine for “Press enter to continue”. 
Writes problem, length of beam. 

Prints concentrated load in problem. 

Prints uniform load in problem. 

Prints final statements of problem. 

Labels concentrated load, P. 

Labels length L of beam. 

Prints2M = 0 equation, 

Shows solution of concentrated load reactions 
by summing the moments about end A. 
Shows solution of A from sum of forces. 

Asks for student's answers. 

Prints options at the end of each major sec- 
tion. 

Draws uniform load for a width Z from Y. 
Draws and labels beam with uniform load. 
Labels uniform load, W. 

Writes problem for uniform load between two 
points on the beam. 

Randomly sets values for problem with uni- 
form load between L1 and L2. 

Intermediate algebraic solutions for problems 
with uniform load; Y and Z are used to draw 
the beam. 


680 GOSUB 5530 

690 GOTO 5000 

700 CALL CLEAR 

710 PRINT “NEWTON’S LAWS” 

720 PRINT "ARE NECESSARY TO" 

730 PRINT "SOLVE REACTION PROBLEMS. ": : 
740 PRINT "1. EQUILIBRIUM OF FORCES" 
750 PRINT " SUM OF FORCES = Oo" 
760 PRINT " SUM OF MOMENTS = О" 
770 PRINT :"2. FORCES ALWAYS OCCUR IN" 
780 PRINT " PAIRS OF EQUAL AND" 
790 PRINT " OPPOSITE FORCES; " 

800 PRINT " ACTION = REACTION"::: 
810 GOSUB 5590 

B20 CALL CLEAR 

830 PRINT "TO SOLVE A PROBLEM 

840 PRINT "DRAW AND LABEL THE PROBLEM." 
850 PRINT :"WITH 2 UNKNOWN REACTIONS, " 
860 PRINT "SOLVE 2 EQUATIONS: " 

870 PRINT " SUM OF MOMENTS о" 

880 PRINT " SUM OF FORCES = a" 

890 PRINT :"USE CORRECT UNITS. "is: 

900 GOSUB 5590 

910 IF CHOICE-2 THEN 1720 

920 CALL CLEAR 

930 PRINT "PROBLEM: " 

940 PRINT ::"GIVEN A SIMPLE BEAM" 

950 PRINT "SUPPORTED AT THE ENDS." 
960 PRINT :"IT IS LENGTH L." 

970 PRINT :"A CONCENTRATED LOAD P" 

9680 PRINT "IS AT THE CENTER." 

990 PRINT :"IGNORE WEIGHT OF THE BEAM." 
1000 GOSUB 5810 

1010 І=16 

1020 GOSUB 5570 

1050 CALL HCHAR(I*1,12,76) 

1040 J=16 

1050 GOSUB $560 

1060 CALL HCHAR(I-5S, 16,80) 

1070 GOSUR 6040 

1080 PRINT "TAKING MOMENTS AT A,": 
1090 PRINT "P1L/2 - Бї. = о“ 

1100 PRINT " Bal = P*L/2" 

1110 PRINT TAB(11);"B = P/2"; 

1120 PRINT :"NOW TAKE SUM OF FORCES-O" 
1120 GOSUB 5570 

1140 PRINT "A + B- Р = о" 

1150 PRINT " A+ B= P" 

1160 PRINT " А = Р- В = Р - Р/2" 
1170 PRINT ТАВ(9); "А = P/2" 

1180 GOSUB 5590 

1190 GOSUB 5370 

1200 CALL HEHAR(I+1,12,76) 

1210 GOSUB 5560 

1220 CALL HCHAR(11, 16,80) 


FOR Y-4 TO 26 STEP 22 
CALL HCHAR(22,Y,80) 
CALL HCHAR (22, Y+1,47) 
CALL HCHAR (22, Y+2, 50) 
NEXT Y 
PRINT 
PRINT 


“IF THE CONCENTRATED LOAD” 

"IS IN THE CENTER," 

PRINT "А = R p/2*ss 

PRINT "FOR EXAMPLE, IF P-1000 LBS.," 
PRINT " A-500 LBS. AND В=500 LBS." 
GOSUB 5590 

RANDOMIZE 

Ex=2 
PP=1008 (INT (208RND) +1) 
LL=INT(S%RND) +10 
GOSUB 5430 

GOSUB S690 

GOSUB 5810 

О GOSUB 5:70 

GOSUB $560 

BOSUB 5850 

GOSUB 5950 

GOSUB 6250 

IF ACOPP/2 THEN 1510 
IF B<>PP/2 THEN 1510 
PRINT ::"82% CORRECT?! 
GOSUB 5590 

GOTO 1560 

PRINT :"SORRY. THE REACTIONS ARE" 
PRINT :"A “sPP/2 

PRINT "B -";PP/2 

GOSUB 5590 

GOTO 1570 

IF EX>2 THEN 1590 


asx" 


Continued on p. 80 
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LINE VOLTAGE 


TRANSIENT CLIPPING 


Features Parallel Operation 


PROTECTS: 
*Computers 
*Micro-Computer Systems 
*Word Processors 

*Cash Registers 

*Power Supplies 


DVMARC 


INDUSTRIES, INC. 


5000 Hits/Second 


PROTECTS AGAINST: 

*High Energy Voltage 
Transients 

*On-Off Switching 

*Lightning Induced Transients 

*Inrush of On/Off Power 


74 


TRANSIENT VOLTAGE 
SURGE SUPPRESSOR LISTED 


Dealer inquiries invited. 


7133 Rutherford Rd. 
(301) 298-3130 


Baltimore, Md. 21207 
800-638-9098 


| Тһе two finest programs 


Santa Paravia 


and Fiumaccio 


The year is A.D. 1400, and you are the 
ruler of a tiny Italian city-state. You are 
ambitious by nature and intend to build 
your little city-state into a powerful king- 
dom. 

So begins Santa Paravia and Fiumac- 
cio, where you and your fellow players 
compete as rulers of neighboring cities. 
You control the grain harvest, feed your 
people, set tax rates, exercise justice, and 
invest in public works. 

Life was short back then, and you'll 
have only a limited amount of time in 
which to build your kingdom. The lives of 
your serfs will depend on your decisions. 
If they are wise, then your city-state will 
grow and you will acquire loftier titles. If 
your rule is incompetent, your people will 
starve and your city-state may be invaded 
by your neighbors. 

How will you rule your kingdom? Will 
you become unscrupulous and follow the 
example set by Niccolo Machiavelli in his 
book on government, The Prince—or will 
you be a benevolent ruler—an iron fist in 
a velvet glove? Only you can answer that 
question—with the Santa Paravia and 
Fiumaccio program. For Т199/4 Micro- 
computers. 

No. 0273TI $9.95. 


for the TI 99/4* 


Airmail Pilot 


Let the Airmail Pilot package take you 
to the early days of aviation history. Your 
plane is the Curtis JN4-D, affectionately 
known as the Jenny. You must fly the 
mail from Columbus to Chicago. 

The Jenny carries only 26 gallons of 
fuel. You'll have to stop along the way. 
Bad weather may force you down. Elec- 
trical storms may turn your aircraft into a 
mass of flaming wreckage, or ice may 
form on your wings and plunge you to 
certain death below. But, the mail must 
get through. 

Experience the thrills of flying, when 
aircraft were mere fragile machines of 
wood and fabric, with the Airmail Pilot 
package. (Scarf and flying helmet option- 
al.) All you need is your TI99/4 micro 
computer. 

No, 0274TI $9.95. 


TO ORDER: 
See your local Instant 
Software dealer or call 
Toll-Free 
1-800-258-5473 


*A trademark of Texas Instruments 


Instant Software: "52029" 
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1570 EX=EX+1i 

1580 GOTO 13460 

1590 GOSUR 6290 

1600 IF KEY=49 THEN 1360 
1610 IF KEY-51 THEN 5000 
1620 I-16 

1630 Jz16 

1640 GOSUB 5370 

1650 GOSUB 5560 

1660 CALL HCHAR(I+1,12, 76) 
1670 CALL HCHAR(I-5,16,80) 
1680 INPUT "LENGTH OF BEAM = 
1690 GOSUB 5310 

1700 INPUT “LOAD P = "iPP 
1710 GOTO 1410 

1720 CALL CLEAR 

1730 PRINT "GIVEN A BEAM OF LENGTH L" 
1740 PRINT "SUPPORTED AT ENDS A AND B." 


1750 "A CONCENTRATED FORCE ОЕ" 
1760 "Р POUNDS IS APPLIED" 
1770 "D FEET FROM A. IGNORE" 
1780 "THE WEIGHT OF THE BEAM. 
1790 $810 

1800 

1810 

1820 


1830 GOSUB 5370 
1840 GOSUB 5560 
1850 CALL HCHAR(1-5,2,80) 
1860 CALL HCHAR(I-1,9,58) 
1870 CALL HCHÓR(I*1,16,75) 
1880 GOSUB 6040 
1890 PRINT :"YTAKING MOMENTS АТ А" 
1900 PRINT :"РҰр - Вж = о" 
1910 PRINT ТАВ (7) ; "Вж = PxD" 
1920 PRINT TAB(9);"B = P3D/L" 
1950 PRINT :"NEXT SUM FORCES = О" 
1940 GOSUB 5590 
1950 PRINT :"A + B- P = о“ 
1960 PRINT ~ А = P-B = P ~ PXD/L* 
1970 GOSUB 5590 
1980 RANDOMIZE 
1990 EX=2 
2000 PP-100£z«(INT(2OXRND) +1) 
2010 LL=INT (6*RND) +10 
2020 D=INT(LO#RND) +1 
2030 GOSUE 5630 
2040 GOSUB 5690 
2050 GOSUB 5810 
2060 GOSUB 5370 
2070 J=INT(D/LL¥21)+5 
2080 GOSUB 5540 
2090 GOSUB 5850 
2100 GOSUB 5950 
2110 DD$=STR$ (D) 
2120 FOR E-1 TO LEN(DDS) 
2130 EE-J-S 
2140 CALL HCHAR(I~1,EE+E, ASC (SEG (DD$, E, 102) 
2150 NEXT E 
2160 CALL HCHAR(I-1,EE«E,39) 
2170 BB=PPXD/LL+.005 
2180 BB=1E-22 (INT (BBS1E2)) 
2190 AA-PP-BB 
2200 IF EX-2 THEN 2250 
2210 GOSUB 6250 
2220 IF AA<>A THEN 2240 
230 IF BB=B THEN 2300 
2240 PRINT :"DUR ANSWERS DON'T AGREE. 
2250 GOSUB 4040 
2260 GOSUB 6110 
2270 GOSUB 6190 
2280 Ех=5 
2290 GOTO 2000 
2300 PRINT :::"f* YOU ARE CORRECT 4з" 
2310 GOSUB 5590 
2320 EX=EX+1 
2330 IF EX<4 THEN 2000 
2340 GOSUB 6290 
2350 IF KEY=49 THEN 2000 
360 IF KEY=51 THEN 5000 
2370 CALL CLEAR 
СВО 1=16 
2390 J=12 
2400 GOSUB 5370 
2410 GOSUB 5560 
2420 CALL HCHAR(I-S,J,80) 
2430 CALL HCHAR(I-1,9,58) 
2440 CALL HCHAR(I+1, 16,76) 


2450 INPUT "LENGTH OF BEAM = ":LL 
2460 GOSUB 5510 


Civil Engineering . . . 

| 2470 INPUT "LOAD P = “:РР 

i 2480 INPUT "DISTANCE FROM A = "iD 

i 2490 IF D>LL THEN 2510 

| 2500 IF D>=O THEN 2530 

2510 PRINT :"SORRY, О <= D <= L":t 

2520 GOTO 2480 

2530 GOTO 2060 

2840 CALL CLEAR 

2550 PRINT "GIVEN A SIMPLE BEAM" 

2560 PRINT "SUPPORTED AT THE ENDS." 

2570 PRINT "IT IS LENGTH L." 

| 2580 PRINT "THERE IS A UNIFORM LOAD" 

\ 2590 PRINT "OF М POUNDS PER FOOT." 
2600 GOSUB 5810 

2610 CALL CLEAR 


Inventory, Order Entry, 
Sales, & Mailing List 
For Your TI-99/4 


Interactive Programming 
Allows Maximum Flexibility for Customizing 
the Software to Your Specific Needs. 


Each program available separately: 
* Inventory $44.95 cassette; $49.95 disk 


2620 PRINT "А UNIFORM LOAD CAN BE" * Order Entry " " 

| 2630 PRINT "THOUGHT OF AS AN” 
2640 PRINT "EDUIVALENT RESULTANT" * Sales " " 
2650 PRINT "LOAD ACTING AT THE" ai А 
2660 PRINT "CENTROID OF THE LOADING":::::::::: * Mailing List d S 
2670 CALL HCHAR(21,5, 112,7) Interactive packages — disk-based only: 
2680 CALL HCHAR(20, 7.87) 
2690 CALL HCHAR(20,8,47) * Inventory - Sales $89.95 
2700 CALL НСНАВ (20,9,75) 
2710 CALL HCHAR(22,8,76) * Inventory - Order Entry 89.95 
2720 CALL HCHAR(21, 15,61) * Order Entry - Mailing List 89.95 
2730 CALL HCHAR(22,19,115,7) LE 
2740 1-22 Versions in ТЇ BASIC & Extended BASIC 
2750 J=22 
2750 GOSUB 5560 All 4 programs $189.95 


2770 CALL HCHAR(18,21,87) 
2780 CALL HCHAR(21,23,76) 

2790 CALL HCHAR(21,24,47) 

2800 CALL HCHAR (21,25,50) 

2810 GOSUR 5590 

2820 GOSUB 6420 

2830 PRINT “EQUIVALENT LOAD IS" 
2840 PRINT “WL ACTING AT CENTER." 
2850 PRINT "SOLVING, A-B-W1L/2" 
2850 GOSUB 5590 

2870 EX-2 

2880 RANDOMIZE 

2890 WW=10% (INT (10#RND) +1) 

2900 LL=INT(10#RND) +10 

2910 GOSUB 5630 

2920 GOSUB 5780 

2930 GOSUB 5810 

2940 GOSUB 6420 

2950 GOSUB 5950 

2950 GOSUB 6500 

2970 GOSUB 6250 

2980 AA=WWELL/2 


> 4 
S" SOFTWARE ^ 
ES 6, 
A & FOR T! 99/4 ®© 


3010 IF BB« ЭВ THEN 3050 . SPACE BATTLE You are the Earthfleets last hope, 
3020 PRINT :"X* CORRECT Xt outmunbered you must rely on cunning and steely nerves to 


тозо GOSUB 5590 Sitit ths euamvL 
3040 GOTO 3100 xd $9.95 


3050 PRINT : 


(FREE /ibrary storage case included) 


Add $2.50 for postage/handling. 
California orders, add 696 tax. 


To order, or for more information: 


Paul Yates Computer Services 
4037 Johnson Drive 
Oceanside, CA 92054 


Tel. (714)-758-1633 


QUALITY 


3060 PRINT AA; "POUNDS" SKI — An exciting downhill race game. Hundreds of dif- 
3070 GOSUB $590 ferent courses and different skiing conditions test your 
OBO EX=EX+1 skill. $9.95 

3090 GOTO 2890 

3100 1=18 

3110 Ү=16 | f LASER SHIELD Shield the cities from incoming 
S120 Z= i missiles with your laser. Fast reflexes and presence of 
5120 EXsEX«1 mind are required, $8.95 


3140 GOSUB 5450 


3150 PRINT "L = 16 FEET" 

! i Wm a LAND ON MARS tandi їз only half tho fun. 
3160 PRINT "W = 80 LBS/FT M 

! ^" „ You mst take off and dock with the orbiter. Hundreds 

| 3170 PRINT ACTING 8 FT FROM A f diffi t land: to chall гат ti 
3180 PRINT " TD 12 FT FROM A":: o erent landscapes to challenge you. атоп option 


3190 PRINT "EQUIVALENT FORCE IS included; $8.95 


3200 PRINT "SO LBS/FT % (12 FT - 8 FT)" 
\ О EAT c 4o сва“ BARNYARD FUN A memory building gane for child- 
S220 PRINT "APPLIED 10” FROM A." ren azes four and up. $6.95 

S230 PRINT :"SUM MOMENTS ABOUT A." " 
3240 GOSUR 5590 
3250 GOSUB 5370 
3260 J=19 

3270 GOSUB 5540 
F280 LL-16 


Basic language on cassettes, complete instructions included. 


3290 РР=520 Plus $1.50 shipping/handling, Мп, residents add 5% sales tax 
3300 GOSUB 5850 

3310 GOSUB 5950 To order or for more information: 

3320 CALL HCHAR(I-1,10,49) 

3330 CALL HCHAR(I-1,11,48) American Software Design & Distribution Co. 
3340 CALL HCHAR(I-1,12,39) P.O. Box h6 


Cottage Grove, Mn. 55016 


Continued on p. 82 
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Local Networking . . . from p. 74 


N.T.S.U. DATANET 1 PARTS LIST 


Master Control Box 


(C1 - 74161 Counter 

ІС2 - TIL311 HEX LED Display 
СЗ -7437 NAND Buffer 

tC4, IC5 - 555 Timer 

IC6, 1С14 - LM386 AUDIO OP АМР 
1C7,1C8 - 7805 + SV Regulator 


R1-1K 

R2 - 100K 

R3- 2.2K 

R4, R6- 10 Ohms 

RS -2 MEG 

R15 - 10K PC MOUNT POT 
Alt Resistors are % Watt 


C1, C2, C3, C10, C11, C12 - 

.1 UF Ceramic Disk 
C4, C21- 4.7 UF Tantalum 
C5,C23- .05 UF Ceramic Disk 
C6, C22 - 330 UF Electrolytic 
C7, C8 - .1 UF Tantalum 


SW1 - Normally Closed SPST 
Pushbutton Switch 

SW3 - SPST Toggle Switch 

RECT - 2 AMP Bridge Rectifier 

T1-6.3V 3 AMP Transformer 


——-MISC.—— 

Circuit Board 

Enclosure 

2- D-9 Nine Pin Female Connectors 


MINDS 


2- Mini Phone Jacks 
Pawer Cord 
Wire 


—— Very Rough Estimate of Parts Cost —— 


Integrated Circuits $14.75 
Resistors -80 
Capacitors 4.90 
Switches, Transformer etc. 8.50 
Misc: 12.50 


Master Total Estimated Cost $41.45 


Slave Control Box 


1C9 - 7404 HEX Inverter 

1С10 - 7420 Dual 4 Input NAND 

1C11 - 7403 Quad NAND (Open Collector) 
1612, 1C13- LM386 OP AMP 


Q1 - 2N2222 Transistor 


R7, R14 - 10K 
R8,R9-330 Ohm 

R10- 4.7K 

R11, R12- 10 Ohms 
R13- 20K PC MOUNT POT 
All Resistors аге % Watt 


C13 - 6.8 UF Tantalum 

C14,C19, C20- .1 UF Ceramic Disk 
C15, C16 - 330 UF Electrolytic 
C17,C18- .05 UF Ceramic Disk. 


TORMS 


THE DEFINITIVE BOOK ON LOGO 


SW2 - SPST Toggle Switch 
LED1, LED2 - Single LEDS 


——MISC.—— 

Enclosure 

2 - D-9 Nine Pin Female Connectors 
2 - Mini Phone Jacks 

Circuit Board 

Wire 

MISC. Hardware 


—— Very Rough Estimate of Parts Cost—— 


Integrated Circuits $3.50 
Resistors 1.10 
Capacitors 2.45 
Switch, LEDS, Transistor 1.00 
MISC. 12.00 
Slave Total Estimated Cost $20.05 


—— Network Bus Cable Parts —— 
17 - D-9 Nine Pin Male Connectors 
Cable 


$34.00 
20.00 


Price Estimate for A 16 Slave System 


16 Slaves 620,05 $320.80 
1 Master 941,45 41,45 
Cable Connectors 34,00 
Cable 20.00 
Total Estimated Cost $416.25 


Get Your Copy 


TODAY! 
See 99'er BOOKSTORE p.68 


2s Daa 3770 IF WW<>Ọ THEN 3800 D] 
Civil Engineering... from p. 81 3780 PRINT "IF W=0, A=B=0" 
3350 PRINT "5208 Ж 10' ~ Bi16' = 0" 3790 GOTO 3760 4 
3360 PRINT TAB(S):"Be3200/15 LBS = 200 LBS":: 3800 INPUT "ACTING AT DISTANCE FROM A ":L1 n 
3370 PRINT "NOW SUM FORCES" 3810 IF 11<0 THEN 3830 Ы 
3380 90508 5590 3820 IF LIXLL THEN 5850 
3390 PRINT :"3Z08 - 2000 - A = 0" 3830 PRINT "SORRY, О <= L1 < LL" 5 
3400 PRINT " A = 120 LBS" 2840 GOTO 3800 ) 
5410 GOSUB 5590 3850 INPUT "TO - DISTANCE FROM A ":L2 
3420 EX=EX+1 2860 IF L2«-L1 THEN *880 
3430 RANDOMIZE 2870 IF L2«-LL THEN 3900 oh 
3440 GOSUB 5660 3880 PRINT "SORRY, L1 < L2 <= L" | 
3450 GOSUB 6610 3890 GOTO 3850 
3460 GOSUB 6730 3900 GOSUR 4730 
3470 GOSUB 5590 3910 GOTO 2480 
3480 GOSUB 5370 920 CALL CLEAR $ 
2490 GOSUB 6370 £930 PRINT TAB(4); "COMBINATION LOADS": 
3500 GOSUB 6500 3940 PRINT :"TO SOLVE THIS TYPE PROSLEM:" 
3510 GOSUB 5950 3950 PRINT :"DRAW AND LABEL THE REAM." 
3520 GOSUB 6250 3960 PRINT :"SUM MOMENTS ABOUT A OR B." 
3530 BB=LCAD# (D2/2+L1) /LL*. 005 3970 PRINT ::"SUM FORCES": 
3540 BR=1E~2% (INT (BBS1E2)) 3980 GOSUB 5570 
3550 AA=LOAD-BB 3990 CALL CLEAR a 
3560 IF AAX>A THEN 2610 4000 RANDOMIZE 
3570 IF BEC>E THEN 3610 4010 GOSUB 6660 
3580 PRINT :"£$* CORRECT r$" 4020 GOSUB 6750 
3590 cosuB 5590 4030 PP=100% (INT (153 RND)) 
3600 GOTO 3660 4040 D=INT(LL2RND) A 
3610 PRINT i"SORRY. IT IS " 4050 GOSUB 5650 
н 3620 PRINT "А = ";AA 4060 IF РР=0 THEN 4080 
3630 PRINT "B = "iBB: 4070 GOSUR 5710 
3440 BOSUB 5590 4080 IF WW=Q THEN 4130 
3650 GOTO 3420 3090 GOSUB 5780 
3660 GOSUB 6290 4100 IF L1-LL THEN 4120 
3470 IF KEY-49 THEN 3420 4110 GOSUB 5620 
3680 IF KEY-51 THEN 5000 4120 GOSUB 5810 
i 3690 CALL CLEAR 4130 I-16 
3700 1-16 m 4140 J=INT (D/LL#22) +5 
3710 Y=16 4150 GOSUB 5370 
3720 1=5 4150 GUSUB 5950 
5750 GOSUB 6450 3170 IF WW=0 THEN 4200 
3740 INPUT "LENGTH OF BEAM IN FT = ":LL 4180 GOSUB 4370 
3750 GOSUB 5310 4190 GOSUB 6500 
| 3760 INPUT "LOADING W LB/FT = ":WW 4200 IF РР=0 THEN 4250 4 
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Perfectly 
Balanced 


99/4 


educational software 
from 
MICRO-ED 


Excellent instructional programs 


Unless otherwise specified, each one can be 
Send for free catalogue: 


$ " * 
purchased for *9.95 on Disk MICRO-ED, Inc. * Р.О. Box 24156 • Minneapolis, MN 55424 


* If interested in future availability of programs on Cassette, 
Please let us know as soon as possible. Lo or telephone us at (612) 926-2292 


Civil Engineering . . . 4650 CALL HCHAR(I*1,Y*Z,50) 
4640 CALL HCHAR(I-1,8,68) 
4210 GOSUB $560 4650 INPUT "LENGTH OF BEAM L = ":LL 
4220 BOSUB 5850 4660 GOSUB 5310 
4230 GOSUB 6250 4670 INPUT "FORCE P - ":PP 


4240 BR=(PPED+LOADS (D2/2*L1))/LL*. 005 4680 IF PP-O THEN 4740 
4250 BB-1E-2£(INT(BBE1E2)) 4690 INPUT "DISTANCE D = 
4260 AR-PP«LOAD-BB 4700 IF D»LL THEN 4720 
4270 IF АВЅ (АА-А) >.01 THEN 4340 4710 IF D>=0 THEN 4740 
| 4280 IF АВБ(ВВ-В) >.01 THEN 4540 4720 PRINT :"SORRY, © <= D <= 
А 4290 PRINT = ** CORRECT зж" 4730 GOTO 4690 
4300 GOSUB 5590 4740 INPUT "LOADING W = ":WW 
4310 GOSUB 6290 4750 IF WW-O THEN 4880 
4320 IF KEY=49 THEN 3990 4760 INPUT "DISTANCE FROM A,L1 = ":L1 
4330 1 THEN 5000 ELSE 4590 4770 IF L1«4O THEN 4790 
4340 SORRY, THE ANSWER I GET IS” 4780 IF L1XLL THEN 4810 
4350 4790 PRINT "SORRY, О <= L1 <L" 
4360 а "s 4800 GOTO 4760 
4370 GOSUB 5590 4810 INPUT "DISTANCE FROM A,L2 = ":12 
4380 GOTO 3990 4820 IF L2«-L1 THEN 4840 
43970 CALL CLEAR 4830 IF L2<=LL THEN 4860 
4400 PRINT "YOU MAY ENTER YOUR OWN” 4840 PRINT "SORRY, L1 < L2 <= LL" 


4410 PRINT 
4420 PRINT 


\ 
i PROBLEMS. JUST ENTER" 4850 GOTO 4810 
| 

| 4430 PRINT 


ALL VARIABLES AS " 4860 D2-L2-L1 
SHOWN ON THE DIAGRAM.” 4870 LOAD=WW3 D2 


4440 PRINT "I WILL GIVE THE ANSWERS. ": 4880 BB=(PP#D+LOADS (D2/24+L1))/LL+.005 
4450 GOSUB S590 4890 BR=1tE-28 (INT(BBXE1bE2)) 
| 4460 I-16 4900 AA=PP+LOAD-BR 
x 4470 4910 PRINT :: "А AA: "POUNDS" 
i 4480 4920 PRINT "B = В; “POUNDS” 
| 4490 4930 GOSUB S590 
‘ 4500 4940 PRINT :"ANOTHER PRORLEM?(Y/N) " 
| 4510 LOAD=0 4950 CALL KEY(O,KEY,ST? 
| 4520 GOSUB 5570 4960 IF KEY-89 THEN 4480 
; 4530 GDSUR $560 4970 IF KEY=78 THEN 5000 
4940 CALL HCHAR(I-5,J.80) 4980 GOTO 4950 
4550 6 4990 END 
4560 2-25 5000 CALL CLEAR 
4570 GOSUB 6270 5010 CALL SCREEN(S) 
4580 CALL HCHAR(I Ү+2,87) 5020 FOR £-1 TO 8 
4590 CALL HCHAR(I+2, 13,76) $030 CALL COLOR(E,12,12) 
4600 CALL HCHAR(I*1,Y.76) 5040 NEXT E 
i 4610 CALL HCHAR(I*-1,Y*1,49) 5050 PRINT ae 
4620 CALL HCHAR(I41,¥+Z—-1,76) 5060 PRINT "SELECT 


Continued on p. 84 
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Typing Symbols... from p. 77 


5150 CALL HCHAR(21,10,35) L 
3160 CALL HCHAR(21,12,52) с 4 
2170 PRINT :::"PRESS # FOR DRILL" 1 
3180 CALL KEY(O,KEY,S) 3 
S190 IF KEY<>35 THEN 31B0 

3200 CALL СО 08 (5,2,1) 

3210 GOSUB 4370 

3220 CALL HCHAR(17,10,35) 

230 DATA "DPEN #2:°"RS232.TW.BA=110"°", "CLOSE #6", "ОРЕМ #3:""CS1"", INPUT", “PRIN 
T 42:X" 

3240 DATA "CLOSE #4:DELETE", "INPUT #2:Х,Ү", "ОРЕМ #1: “"RS232/2. BA=9600""", "PRINT 
#1", "PRINT *1:CHR$ (E) " 3 
3250 RESTORE 3230 ü 
3260 GOSUB 2840 3 
3270 PRINT “THESE SYMBOLS ARE USED":"LESS OFTEN:"::" RIGHT POINTER FINGER" d 
3280 PRINT "? LEFT POINTER FINGER":"' RIGHT POINTER FINGER“: 
INGER" 

3290 PRINT “@ TRY LEFT MIDDLE FINGER": TRY LEFT MIDDLE FINGER” 

3300 PRINT ::"(NO DRILL FOR THESE SYMBOLS) ”":::"PRESS ANY SYMBOL": "ТО CONTINUE." 
3310 CALL KEY(0,KEY,S) 

3320 IF 5<1 THEN 3310 TE 
3330 IF KEY<48 THEN 3370 E 
3340 IF KEY<57 THEN 3310 i 
3350 IF KEY«6S THEN 3370 3 
3360 IF KEY<94 THEN 5510 
3370 CALL CLEAR 

3380 CALL SCREEN(2) 4 
3390 PRINT "YOU SHOULD KNOW ALL THE": "SYMBOLS NOW.":::"PRESS"::"1 TO START OVER à 


LEFT FOINTER F 


3400 PRINT :"2 FOR FINAL REVIEW"::"S TO END PROGRAM":: ig 
3410 CALL SCREEN(4) 4 
3420 CALL KEY (O,KEY,S) a 
3430 IF KEY=49 THEN 970 1 
3440 IF КЕҮ=51 THEN 3830 te 
3450 IF КЕҮ< >50 THEN 3420 Ж 
3460 CALL CLEAR : 


3470 PRINT " SCORE: RIGHT": TAB(16) ; "WRONG": i 
3480 RESTORE 3490 a 
3490 DATA “LEN(NAMESSCITY$)“, "PRINT W2:AREA","PRINT :L;""IS LENGTH""" 1 


39500 DATA "PRINT :05;BiX","CALL JOYST(2,X,Y)","CALL SOUND (800, -4, 2) 
3510 DATA “ON K-48 GOTO 70,150,230","IF A<=B THEN 350","CALL KEY(O,K,S)" Y 
3520 DATA "CALL СНАК (96,4%) ", "PRINT STRS$(UAL(P$))", "PRINT ""HI""" Г 
3530 DATA “CALL VCHAR(10,12,42,8) ","CALL COLOR(I,F,B)","PRINT COS(Y)* E 
3540 FOR 1=0 TO 14 


| 3550 READ РФ(1) 3690 IF R-10 THEN 3740 3830 3 
3560 NEXT I 3700 IF Wz10 THEN 3760 3840 "COPY THE GIVEN = 
5570 R=0 3710 CALL HCHAR(4,25,R+48) THEN PRES! 6; 
3580 w-o 3720 CALL HCHAR (5, 25,W+48) SENTER>."rsrsassess 
5590 FOR 1-1 TO 10 3730 GOTO 3790 5850 FOR I=1 TO 9 
3600 J=INT(1S2RND) 3740 CALL HCHAR (4,24, 49) 3860 READ РФ) ] 
3610 IF РФ (2) =" "ТНЕМ 3600 5750 GOTO 3770 3870 NEXT I . 4 
3620 GOSUB 4180 3760 CALL HCHAR(S, 24,49) 3880 FOR 1=1 TO 5 a 
3630 IF B$-P$(J)THEN 3570 3770 CALL HCHAR(S,25, 48) 3890 J2INT(9XRND) +1 
3640 GOSUB 4330 3780 CALL HCHAR(4,25,48) 3900 IF P$(J)=""THEN 3890 
d J650 WzWel 3790 NEXT I 3910 GOSUB 4180 
3660 GOTO 3690 3800 CALL HCHAR (18, 1,32, 64) 3920 IF B$=P$(J) THEN 3950 
3670 GOSUB 4110 3810 GOSUB 3980 3930 GOSUB 4320 6 
3680 R=R+1 5820 БОТО 5570 | 
] m t А 5340 INPUT "TRY AGAIN; L = "SLL 
Civil Engineering . . . from p. 83 3350 GOTO S310 
5070: PRINT CONCENTRATED LOAD, CENTER" $360 RETURN 
$080 PRINT CONCENTRATED LOAD ANYWHERE" $370 CALL CLEAR 
5090 PRINT UNIFORM LOADS" 5580 CALL HCHAR(I,5, 120) 
5100 PRINT COMBINATION LOADS" 5390 CALL HCHAR(I,6,121,21) 
| 5110 PRINT PROBLEMS ONLY" 5400 CALL HCHAR(I,27, 122) 
S120 PRINT YOUR OWN PROBLEMS" 5410 CALL HCHAR(I+1,5,99) 
5150 PRINT :"7 END PROGRAM": :2 5420 CALL HCHAR(I+1,27,100) 
5140 CALL VCHAR(1,2,32,24) 5430 FOR K=4 TO 26 STEP 22 AE. 
5150 CALL VCHAR(1,31,32, 24) 5440 CALL HCHAR(1+2,K, 101) q 
S160 CALL VCHAR(L, 1. 32.24) 5450 CALL HCHAR(I+2,K+1, 102) k 3 
5170 CALL VCHAR(1,32,32, 24) $460 CALL HCHAR(1+2,K+2, 103) 
5180 FOR Е=1 70 8 $470 CALL VCHAR(I+3,K+1, 104) 
$190 CALL COLOR(E,2,12) 5480 CALL VCHAR(1*4,K*1,105,2) 
$200 NEXT E 5490 NEXT K 
| 5210 CALL КЕҮ(О,КЕҮ,5Т› $500 CALL HCHAR(J+1, 4,65) 
5220 CHOICE-KEY-48 5510 CALL HCHAR(I+1, 28, 66) 
5250 IF CHOICE<1 THEN S210 5520 RETURN 
5240 IF CHOICE>7 THEN 5210 $530 FOR DELAY=1 TO 1000 
$250 CALL CLEAR $540 NEXT DELAY 
5260 CALL SCREEN(B) $550 RETURN 
5270 FOR E=1 Т0 8 5560 CALL VCHAR(I-4,J,105.3) 
ў $280 CALL COLOR(E,2,1) $570 CALL VCHAR(I-1,J, 106) 
5290 NEXT E 5580 RETURN 
5500 ON CHOICE 6070 700,700,2540,3920,3990,4390,4990 5590 PRINT :"PRESS ENTER TO CONTINUE" 
S310 IF LL»-1 THEN 5360 S600 CALL KEY(O,KEY,ST) 
| 5320 PRINT "HEY, WHAT KIND OF BEAM“ $610 IF KEY<>13 THEN 5600 


5330 PRINT "HAS A LENGTH LIKE THAT?! 


Continued on p. 86 
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i 3940 
| 3950 
3960 
2970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
‹ 4100 
| 4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 


4220 
4220 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
310 
4320 
4330 
i 4340 
4350 
4360 
4370 
4380 


4390 
т 4400 
4410 
4420 
4430 
4440 
4450 
| 4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
i 4570 
4580 
4590 
4600 
4610 
4620 
Е 4630 
4540 
4650 
i 4560 
| 4670 


| Typing Symbols... 


GOTO 3960 

GOSUB 4110 

NEXT I 

CALL HCHAR(18,1,32,64) 
CALL SDUND(G£T,740,2) 
CALL SOUND(41T,587,2) 
CALL SDUND(T/2,415,3) 
CALL SOUND (T/2,440,3) 
CALL SOUND(T/2,494,3) 
CALL SOUND(T/2,440,2) 
CALL SOUND(S£T,740,2) 
CALL SOUND(T,659,2) 


CALL SOUND(4XT,659,2) 
CALL SOUND (64T, 5987, 2) 
CALL SOUND(1,9999, 50) 
CALL CLEAR 

RETURN 

РФ (Ј) а"" 

CALL SOUND (100, 592,2) 


CALL SOUND (100, 494,2) 
CALL SOUND (100, 587,2) 
CALL SOUND (100, 494, 2) 
CALL SOUND (100,392, 2) 
RETURN 

Bg="" 

CALL HCHAR(17, 1,152, 128) 
FOR K=1 TO LEN(PS(3)) 
CALL HCHAR(18,K+2, 

ASC (SEBS (P$ (I) ,K, 120) 
NEXT K 

CALL SOUND (150, 1397, 4) 
FOR L=1 TO 28 

CALL KEY(O,KEY, 5) 

IF S41 THEN 4250 

IF KEY=13 THEN 4310 
CALL HCHAR(19,L+2, KEY) 
BS=BS&CHRS (KEY) 

NEXT L 

RETURN 

ї=1-1 

CALL SOUND(800, -8,0,110,4) 


FOR DELAY-1 TO 1000 
NEXT DELAY 

RETURN 

CALL CLEAR 

PRINT Ri$: 

1" "MKRi$::"  "&CHRS 
(152) АФУ" "LCHRS 
(453) ::" "&Rif 

CALL HCHAR (23,5, 131) 


CALL HCHAR (25, 5, 132) 
CALL HCHAR (23,7, 133) 
CALL HCHAR(23, 25, 128) 
CALL HCHAR (23, 26, 129) 
CALL HCHAR (23, 27, 130) 
RETURN 

CALL HCHAR (20, 16,152, 9) 
CALL HCHAR (21,16, 152, 5) 
CALL HCHAR (15, 16,97) 
CALL VCHAR (16,16, 96, 4) 
CALL VCHAR (15, 17,105) 
CALL VCHAR (15, 18, 106) 
CALL VCHAR (15, 17,104, 4) 
CALL VCHAR (16. 18, 107, 4) 
CALL VCHAR(15,19,124) 
CALL VCHAR(16, 19,152, 4) 
CALL VCHAR(17,20, 121) 
CALL VCHAR(17, 21,122) 
CALL VCHAR (18, 20, 120, 2) 
CALL VCHAR(18, 21,123, 4) 
RETURN 

FOR I=1 TO 15 

CALL COLOR(10,7,1) 

CALL COLOR(10, 12, 1) 
NEXT I 

CALL COLOR(10,7, 1) 
RETURN 

END 
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Т1-99/4 Software 


TI-COUNT 


Astronomy Programs 
Small Business System Matrix Routines 
В ail ГНЕ" ach Linear Equation Solver 
General Ledger (professionally approve ] 
ө Accounts Payable (writes checks) 300 Fourier Transform | 
ө Accounts Receivable (prepares bills) Music Analysis/Synthesis 


300 
ө Inventory (1400 items per disk) 300 
650 


| Malling list (renewal letters) Curve F itting Routines 


Hyperbolic Functions 
Two-Dimensional FFT 
Data Fitter 


Programming in TI BASIC 
Extended BASIC and UCSD Pascal 


Programs also Available for the 
TRS80 in Level 2 BASIC 


For further information write: 
Eastbench Computer Products 
1290 Cliffside Drive 
Logan, Utah 84321 
Tel: (801) 753-1084 


Mini Computer Performance 
At Micro Prices 


Only For The 99/4 


For information on dealer 
program, write or call. 


To order, send check to: 
PIKE CREEK 
COMPUTER CO., INC. 
2 Galaxy Drive 

Newark, Delaware 19711 

(302) 239-5113 


PROGRAMMING HINT (1) 


HCHAR Pause Eliminator 


Sometimes there isa noticeable pause when you are printing. a character, 
word, or phrase from a data statement in à FOR-NEXT loop. For example: 


DATA 71,82,69,69,84,73,78,71,83 
FOR Y-10 TO 18 

READ L 

CALL HCHAR(9,Y,L) 

NEXT Y 


By Regéna 


The pause is before the last letter is printed. 4 

This problem can be circumvented by. adding.a non-visible charactet 
such as ASCII 32 to the DATA statement and printing it at-the end of 
your series. 


DATA 71,82,69,69,84,73,78,71,83,32 
FOR Y=10 TO 19 

READ L 

CALL HCHAR(9,Y,L) 

NEXT Y 


SOFTWARE 
SERVICES 
Ti-99/4 
CUSTOM PROGRAMMING 


CUMBERLAND 
TECHNOLOGY 


10 Wagner Drive 
Carlisle, PA 17013 


* Specializing in Tutorials 
for theElementary Grades 


* Personalized Consulting 


9900 Floating Point Math 
Routine Package 
(for use with Assembly Language) 


for the Compleat Novice 


* Fast e Compact * Down-to-Earth Prices 


* Position-Independent 
* Re-Entrant (9 digits precision) 


$50.00 


99/4 Engineering & Scientific 
Programs Available 


For more information write; 


Pablo Diablo* 
P. O. Box 4863 
Santa Clara, CA 95054 
` SOURCE ID TCV774 
*The Legendary Evil Kiteflyer 


Single 
CPU License 


99'er Magazine July/August 1981 85 


T Р " PRINT FORCES = O^ 
Civil Engineering. . . from p. 84 PRINT on 
5620 RETURN PRINT P-B =":PP;"~"; BB 
| S630 CALL CLEAR PRINT "зад; "POUNDS" 
| S640 PRINT "PROBLEM": :: GOSUB 5590 
$650 PRINT "GIVEN A SIMPLE BEAM" RETURN 
5440 PRINT “SUPPORTED AT THE ENDS." PRINT : “WHAT ARE A AND B IN POUNDS?" 
| 5470 PRINT “IT IS";LL; "FEET LONG." INPUT “A = "A 
5680 RETURN INPUT "B = ";B 
S490 IF CHOICE>2 THEN 5710 RETURN 
5700 PRINT :"IGNORE WEIGHT OF THE BEAM." PRINT ::"DO YOU WANT MORE PROBLEMS?” 
| 5710 PRINT "A CONCENTRATED LOAD OF" PRINT :"1 YES, SAME KIND" 
| 5720 PRINT РР; "POUNDS IS" PRINT "2 YES, MY OWN PROBLEMS" 
5730 IF CHOICE=1 THEN 5760 PRINT "5 NO, DO SOMETHING ELSE" 
5740 PRINT D;"FEET FROM END 4." CALL KEY(O,KEY,ST) 
5750 RETURN IF KEY<49 THEN 6330 
| 5760 PRINT "АТ THE CENTER OF THE BEAM." IF КЕҮ>51 THEN 6330 
5770 RETURN RETURN 
| 5780 PRINT :"THERE IS A UNIFORM LOAD” CALL HCHAR(I-1,Y,112,2) 
5790 PRINT "ОЕ"; МИ; "POUNDS/FOOT" CALL HCHAR(I-2,Y, 112.2 
5800 RETURN CALL VCHAR(I-2,Y-1.114,2) 
5810 PRINT :"FIND THE REACTION FORCES. CALL VCHAR(O-2, ¥+Z, 113, 2) 
5820 PRINT "DRAW AND LABEL THE PROBLEM. RETURN 
5830 GOSUR S590 I=16 
S840 RETURN Y=6 
5850 LB$=STRS (PP) 1-221 
5860 FOR II=1 TO LEN(LB$) 6450 GOSUB 5370 
5870 JJ=TI+I-4 6460 БОБОВ 6370 
5880 CALL HCHAR(I-5,JJ,ASC(SEGS (LBS, 11,100) 6470 CALL HCHAR(I-3, 16,87) 
5890 NEXT II 6480 CALL HCHAR(1+1,16, 76) 
5900 CALL HCHAR(I-5,JJ+1,32) 6490 RETURN 
5910 CALL HCHAR(I-5,3J+2, 74) 4500 X-INT(Y*2/2-2) 
5920 CALL HCHAR(I-S.JJ*3, 64) 510 ULS=STRS (WW) 
5930 CALL НСНАК (1-5,72+4,85) 520 FOR E=1 TO LEN(ULS) 
5940 RETURN 6530 CALL HCHAR (1-3, X+E-1, ASC (SEGS(UL$,E,1)) 
5950 FT$=STR$ (LL) 6540 NEXT E 
5960 FOR 11=1 TO LEN(FTS) 6550 CALL HCHAR(I-3, X+E, 76) 
5970 JJ212*411 6560 CALL HCHAR(I-S,X«E*1,66) 
5980 CALL НСНАК (1+1, 02, ASC(SEGS(FTS, IT, 122) 6570 CALL HCHAR (1-5, X+E+2, 47) 
$990 NEXT II 6580 CALL HCOHAR(I~3, X+E+3, 70) 
6000 CALL HCHAR(I+1,JJ+2,70) 6590 CALL HCHAR (1-3, X+E+4,84) 
6010 CALL HCHAR(I*1,JJ43,69,2) 6600 RETURN 
4020 CALL HCHAR(I*1,JJ45.84) 6410 GOSUR 5630 
] 6050 RETURN 6620 GOSUB 5780 
6040 CALL HCHAR(3,3,98) 6630 PRINT "ACTING FROM";L1; "FEET FROM A" 
4050 6640 PRINT "TO";L2; FEET FROM A“ 
5060 CALL HCHAR(22.6,61) 6650 RETURN 
4070 CALL HCHAR (25,8, 48) 6660 LL-INT(B£RND) +12 
4080 PRINT “WRITE THE EQUATION" 6670 Wwz10X (INT (AERND) +5) 
6090 GOSUR 5590 6680 LIMI=INT(S#LL/4) 
$100 RETURN 5690 L1-INT(LIMI3RND) 
6110 PRINT :"TAKING MOMENTS AT A." 6700 LIM2-LL-L1 
6120 PRINT :"PxD - BXL = О" 5710 L2=INT(LIM2$RND) +01+1 
6130 PRINT " B- P ж D/L" 5720 RETURN 
4140 PRINT " B "рти" 6730 D2-L2-L1 
6150 PRINT " B BB; "POUNDS" 6740 LOAD=wwaD2 
&160 PRINT :"NOW FIND A." 6750 Y-INT(L1/LL£22) +6 
$170 GOSUB 5590 6760 Z=INT(D2/LL822)-1 
| 6180 RETURN 6770 RETURN єз 
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Battle At Sea... from p. 37 


4830 IF DS(Z4)-LE THEN 4920 

4840 IF DS(Z4)=0 THEN 4870 

4850 W=W+1 

4860 GOTO 4920 

4870 SCORE=SCORE+1 

4880 IF T=0 THEN 4910 

4890 GOSUB 4990 

4900 GOTO 4920 

4910 GOSUB 4980 

4920 NEXT Z4 

4930 IF T=0 THEN 4960 

4940 Wi-W ` 

4950 GOTO 2880 

4960 W-W1 

4970 GOTO 2880 

4980 SCP=SCORE 

4990 CALL HCHAR(23,1, 32,32) 

5000 FOR X3=1 TO _ЕМ(РКФ) +10 

5010 CALL HCHAR(23, X3+6,ASC(SEGS(PRS&" DESTROYED", 
X3,1)0) 

S020 NEXT X3 

5030 IF T=0 THEN 5070 

5040 CALL VCHAR (20, 20, SCORE+48) 

5050 IF SCORE=5 THEN 5120 

5060 RETURN 

5070 CALL HCHAR (20, 27 ,SCORE+48) 

5080 IF SCORE=5 THEN 5120 

5090 RETURN 

S100 PRINT "THE COMPUTER WINS AGAIN" 

5110 GOTO 5150 

5120 PRINT "YOU JUST GOT LUCKY THIS TIME“ 

S130 PRINT "IF YOU WISH TO PLAY AGAIN" 


5140 PRINT "ENTER "" 
5150 INPUT NG$ 
N"THEN 5330 
IF NG$="Y"THEN 5200 
5180 CALL SOUND(200, 110,Q) 
5190 GOTO 5130 


;IF NOT ENTER 


O(C..L1)-0 
5240 NEXT L1 

5250 NEXT L 

S260 FOR L=1 TO 5 
5270 FOR Li=1 TO 5 


S280 SH(L,L1,1)=0 
5290 SH(L,L1,2)=0 
5300 NEXT L1 


5370 FOR X-1 TO LE-1 

IF NNN-i THEN 5410 

IF SH(S,X,1)=SH(S,X+1,1) THEN 5440 
IF AAA=1 THEN 2010 

IF SH(S,X,2)<>SH(S,X+1,2) THEN 2010 
$420 NNN-1 

5430 БОТО 5450 

$440 AAA=1 

5450 МЕХТ Х 

5460 RETURN 


5470 END @ 


4900 RETURN 


Harried Housewife ... from p. 39 4910 Xeg 


5450 vz14 
5460 RETURN 


4450 CALL HCHAR(X, Y*1,78) 4920 5470 CH(SS)-HH(4 

4460 CALL HCHAR(X, ¥+2, 69) 4920 GOSUB 5270 S480 Х=5 

4470 RETURN 4940 RETURN 5490 Y=19 

4480 DATA В0,82,59,85,85,52,59, 4950 Х=15 S500 RETURN 
78,84, 69,82, 32,84,79, 32,67, 4960 Y-4 5510 CH(SS) sHH(5) 
79,78, 84,73, 78, 85,69,32 4970 GOSUB 5270 5520 x-8 

4490 RESTORE 4480 4980 RETURN 5530 Y=4 

4500 FOR Y=3 TO 26 4990 Х=15 5540 RETURN 

4510 READ GR 5000 Y=9 5550 CH(SS)=HH(6) 

4520 CALL HCHAR(23,Y,6R) 5010 GOSUB 5310 5540 X=8 

4530 NEXT Y 5020 RETURN 5570 Y=9 

4540 CALL KEY (O,KEY,ST) 5030 X=15 S580 RETURN 

4550 IF KEY<313 THEN 4540 5040 Y=14 5590 CHISS) -HH(7 

4560 CALL HCHAR(4,24,32,5) 5050 GOSUB 5270 5600 X=8 

4570 CALL HCHAR(23,2,32,25) 5060 RETURN 5610 Ү=14 

4580 ON (K1-64)GOSUB 4250, 4670, 5070 X-13 $620 RETURN 
4710,4750,4790, 4830, 4870, Sogo S630 CH(SS) =HH(B) 
4910, 4950, 4990, 5020, 5070, 5090 GOSUB 5310 5640 x-8 
$110,5150,5190,5230 $100 RETURN 5650 Y=19 

4590 CALL HCHAR(X,Y,K1) 5110 X=18 5660 RETURN 

4600 ON (K2-64)GOSUB 4630,4670, $120 үза $670 CH(SS) =НН (9) 
4710, 4750, 4790, 4830, 4870, 5150 GOSUB 5510 5680 X-13 
4910, 4950, 4990, 5020, 5070, 5140 RETURN 5690 Y=4 
5110,5150,5190, 5250 5150 x-i8 5700 RETURN 

4610 CALL HCHAR(X,Y,K2) 5160 Y=9 $710 CH(SS)-HH(iO) 

4620 GOTO 1120 5170 GOSUB 5270 $720 X=13 

4630 X=3 5180 RETURN 5730 Y=9 

4640 Y=4 $190 x-18 5740 RETURN 

4650 GOSUB 5270 200 Y-14 5750 CH(SS) -HH C11 

4660 RETURN 5210 GOSUB 5310 S760 X=13 

4670 х= 5220 RETURN 5770 Y=14 

4680 Ys9 5250 x-18 5780 RETURN 

4690 GOSUB 5310 $240 Y-19 5790 CH(SS) -HH (12 

4700 RETURN 5250 GOSUB 5270 $800 Х=15 

4710 Х=5 5260 RETURN $810 Y=19 

4720 Y-14 5270 FOR XX-x-1 TO X+2 5820 RETURN 

4720 GOSUB 5270 5290 CALL HCHeR(XX, Y-1,42,4) 5в50 CH(SS)-HH(12) 

4740 RETURN 5290 NEXT Xx 5840 x=18 

4780 X=3 5300 RETURN 5850 Y=4 

4760 Y=19 S310 FOR XXeX-1 TO X42 S860 RETURN 

4770 GOSUB 5310 $320 CALL НСНАВ (ХХ,Ү-1,44,4) 5870 CH(SS)=HH(14) 

4780 RETURN S330 NEXT XX $880 X-18 

4790 X-8 5340 RETURN 5890 Y=9 

4800 Y=4 $350 CH(SS) =HH(1) 5900 RETURN 

4810 GOSUR 5510 5360 X=3 $910 CH(SS) -HH (15) 

4820 RETURN S370 Y-4 $920 x-18 

4830 X-8 5380 RETURN $930 Y=14 

4840 Y=9 5390 CH(SS) sHH C2) 5940 RETURN 

4850 GOSUB 5270 5400 X23 5950 CH(SS)-HH C16) 

4850 RETURN 5410 Y-9 5960 x=18 

4870 X-8 5420 RETURN 5970 Y=19 

4880 Y=14 S430 EH(GS) -HH CX) 5980 RETURN 

4890 GOSUB 5310 5440 X=3 
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Now, you can separate 

your TI 99/4 Computer 

from your TI Peripherals 
1 M | | | 


ML 


BETTER CONVENIENCE @ EASE OF OPERATION e VERSATILITY 


Our (2) Two Foot Cable is made to interconnect your 


Texas Instruments TI 99/4 Computer with almost any 


| combination of Printer, RS 232, Tape, or Controller. 


ORDER FORM 


SEND ORDER WITH PAYMENT TO. 
RCL COMPUTERS 
411 Allegheny River Blvd. 
Oakmont, PA. 15139 
(412) 828-4301 


COMPUTERS 


SHIP THE FOLLOWING: 


Heavy Duty 2' Cable At $44.95 ea. 
Heavy Duty 3' Cable At $54.95 ea. 
C Check No. 
C Money Order — 
Price F.0.8. Pittsburgh, PA. 
PA. Deliveries add 6% Sales Tax 
Allow 34 weeks delivery. 
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Attention Dealers: Please write or call for bulk subscription rates. Also ask about our inexpensive 
magazine directory listings to publicize your retail locations. Call: (503)-485-8796 
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DIGITAL COMPUTER CASSETTES $9.95 
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—| 


SHIPPING — $2.00 for 1st ALBUM, 75€ ea. add" 
MINI-FLEX DISKETTE FILE $24.95 

SHIPPING -- $2.50 ea. ^. . —  — -. 
FRICTION-FEED KIT $49.95 


No. C.O.D. orders accepted. Add $1.50 POSTAGE 
postage & handling for 1 book, $2.00 for 
2 books, or $2.50 for 3 or more books. 


FOR EPSON MX-80 SHIPPING — $2.00 e3.*[| 77777777 
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Back issues of 99’er Magazine available — $3.95 ea. (postpaid) issue(s) desired 


(month/month, year) 


99'er MAGAZINE SUBSCRIPTION 
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Almost Everything 
You Ever Wanted to Know About Music... 


Middle 
с 


Figure 1. Piano Keyboard 


...BUT WERE AFRAID TO ASK 


Do you feel deficient in certain areas 

of your musical ability? How are 
your listening skills? If you enjoy music 
and want to test and improve your abili- 
ties, TI's Music Skills Trainer can be a 
valuable tool. This program provides 
practice in aural recognition of pitches, 
intetvals, and chords, and develops your 
ability to remember musical phrases. 
You can control the complexity of each 
drill by selecting various options includ- 
ing note range, use of sharps (f) and 
flats (b), types of chords and intervals, 
and the playing of random music be- 
tween examples. 

Since the program is designed to pro- 
vide drill and does not teach the under- 
lying concepts involved, this article will 
first cover relevant aspects of music 
theory, We'll then follow it up with a 
review of Music Skills Trainer. 


The Scale 


|: music terminology Greek to you? 


The fundamental concept involved is 
that of the scale—an ordered group of 
tones within an octave. The C Major 
Scale, with which almost everyone is 
familiar, provides the standard pattern 
for every major scale (Do-Re-Mi-Fa-Sol- 
La-Ti-Do). This pattern originated with 
the Greeks and is based upon the tetra- 
chord. A tetrachord can be thought of 
as half of a scale, it consistsof four tones 
arranged such that they contain two 
whole steps followed by a half step. 
Refer to the diagram of a piano key- 
board in Figure 1. Starting at middle c, 
each progression up the keyboard repre- 
sents a half step or semitone. For ex- 
ample, all the following represent half 


steps: ccf, с-а, d-d£ , dff-o, e-f, etc. 
The first tetrachord for the C Major 
Scale consists of the following two 
whole steps: cd and d-e followed 
by the half step e-f. The second tetra- 
chord begins with g and again consists 
of two whole steps followed by a half 
step, ending with c' (an octave above 
middle c). This tetrachord pattern 
(1+1+ %) was referred to as a “diatonic” 
tetrachord, and the major scale formed 
by two such tetrachords separated by a 
whole step is therefore called a "diatonic 
scale". 


In order to, accommodate Oriental 
and other music, Greek theorists modi- 
fied the two middle tones of the diatonic 
tetrachord in several ways. One of these, 
called the “chromatic tetrachord”, con- 
sisted of the pattern 14+/4+% (e.g., c, 
dg, e, f). Various combinations of these 
two tetrachords necessitate the division 
of an octave into the familiar twelve 
equally spaced intervals referred to as 
the chromatic scale: c, cf, d, df, с, f, 
fp ggg, aag, bc. 


“Pitch” refers to the location of one 
of these tones in a scale and is defined 
by a regular frequency of vibrations. In 
the United States the standard assign- 

"a" is 440 vibrations per 


ment for “a 
second. It happens that a pure octave 
differs from any reference pitch by a 
factor of exactly 2, so that a’ = 880 and 
А = 220. 

Although knowledge of frequencies 
is not required for use of the Music 
Skills Trainer, you may be interested to 
know how frequencies are assigned to 
other scale positions. Because each 
octave is divided into twelve equally 


By Norma and John Clulow 


1 
spaced intervals, the factor 2 715 used to 
define the relative frequencies of succes- 
sive tones. For example, 
if a= 440; 
1 
аф = 440 x 2® 
1 1 3 1 
b-afx 27=ax 2% x 2=a x (27 )2, 
Given any reference frequency, fg , then 
the relative pitch of any other scale 
position, f, can be calculated by count- 
ing the number of half steps to that 
position, м, and using the formula: 


1 
= тәм 
f = fo(2*)N, 

The following program calculates and 


plays a chromatic scale beginning with 
middle c (262). 


100 REM  *31:353 15433 

110 REM  * MUSIC 1 t 

120 REM *51x3311 13 

150 REM 99°ER VERSION 7.81.1 

140 REM BY NORMA AND JUHAN CI UL OW 
150 REM 

160 REM 


170 FO-252 

180 FOR N-O TO 12 

190 F-FO*i2^(1/12)) ^N 
200 CALL SOUND (-600,F,0) 
210 NEXT N 

220 STOP 


Scales in Various Keys 


Now let us return to the diatonic 
(major) scale. A major scale can have a 
starting or "root" note of any of the 
twelve chromatic pitches. As in the case 
discussed above, a major scale is con- 
structed, starting with the root, with 
two diatonic tetrachords (1+1+)4) sepa- 
rated by a whole step. A more conven- 
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WORLD WIDE 
Airmail Service 


ON TAPE CASSETTE 
PROGRAMS FOR YOUR 


TI-99/4 


ACCOUNTING PACKAGE 

Runs on cassette; no disks or printers 
needed. Enter journal in any order; out- 
put is journal in date order, general ledger 
in date within account no. order, balance 
sheet and profit & loss statement. Copy 
from screen to books. RAM sort limits 
max. 100 journal entries per run. Takes 
about 1% hours. Saves account balances 


for next гип. $50.00 
EARLY READING PACKAGE 


Your words or oursare displayed in giant 
lower case letters. Child must type word 
on keyboard—each letter is checked 
when typed. Child has another chance if 
wrong; child's letter displayed under the 
original if right. Musical tune is rewarded 
when word correctly completed. Speech 
Synthesizer optional, $15.00 


WORD LIST PACKAGE 

Can be used alone, or with Early Read- 
ing. Type in your child's short story. 
Computer sorts words, deletes duplicates 
and saves on tape a list of words to be 
learned for reading that story. $10.00 


CONCENTRATION 

A version of pelmanism using your choice 
of 10 three letter words—each scattered 
randomly two times ona 4x5 grid. Words 
are displayed in place then replaced by 
numbers, Object is to remember which 
numbers covers which word and find 
matches. Computer keeps score and also 
decides first player. Speech Synthesizer 
optional. $10.00 


AMERICAN BACCARAT 

Computer randomly deals cards and 
decides win, lose, or draw. Perfect your 
System without casino losses, or play 
with a stake you'll wish you had. $10.00 


FINANCIAL PACKAGE 

Loan payment calculator, repayment 
schedule, pension calculator—finds how 
much to save each year to maintain 
current standard after retirement. Takes 
interest and inflation rates into account. 


$7.50 
PERCENTAGE COMPARISONS 


Enter and save current and historical 
values of stocks, currency, commodities, 
etc. Calculates, sorts, and lists by per- 
centage changed. $7.50 


No disks, RS-232s, printers, etc. 
needed to run any of these program. 


Send International Money order in 


U.S. $ or equivalent in local currency. 
Ontario Residents add 7% P. 5. T. 


ANTHISTLE SYSTEMS 
& PROGRAMMING LTD, 


563 Patricia Drive 
Oakvilie, Ontario 
Canada, L6K 1M4 
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ient way to construct a major scale is 
simply to remember that half steps 
occur between the 3rd & 4th and 7th 
& 8th tones. Referring to Figure 1, a 
major scale with e? as the root would be 
constructed using the following steps: 


This scale is referred to as an E? Major 
Scale or a scale in the key of e? since 
ер is the root. Similarly, a major scale 
in the Key of G is constructed as follows: 


g a be d e fg 
1 1 ^ 1 1 1 5 


Steps 


While there are twelve such different 
diatonic scales, they all sound the same 
because they are based on the same pat- 
tern of diatonic steps. The following 
program plays these scales beginning 
with C Major. 


100 REM 
110 REM 
1 REM 
130 REM 
140 REM 
150 REM 
150 REM 
170 FO=262 

180 FOR I-O TO 11 

190 F-FOt(2^(1/12))^I 

200 FOR J=1 TO 8 

210 N=? 

220 IF J=4 THEN 240 

250 IF J-8 THEN 240 ELSE 250 
240 N-1 

290 FsF£(2^(1/12)) ^N 

260 CALL SOUNDí-600,F,0) 

270 NEXT J 

280 NEXT I 

290 STOP 


pee SS SEES TS | 

* MUSIC 2 ғ 

PS SSS SESS SS 

39'ER VERSION 7.81.1 

BY NORMA AND JOHN САА Ol 


Intervals 


An interval is the difference in pitch 
between two notes. Interval names indi- 
cate the number of included tones of 
the major scale. Starting with middle с in 
Figure 1, the basic interval names are as 
follows: c-c, unison (prime); c-d, second; 
ce, third; c-f, fourth; cg, fifth; c-a, 
sixth; cb, seventh; and c-c', octave. c-f 
is a fourth because it includes the follow- 
ing diatonic tones of the C Major Scale: 
C, d, e, and f. Similarly, in the Е? Major 
Scale a fourth is eb -ад , and in the G 
Major Scale a fourth is g-c’, However, as 
in the case of scales, an interval in one 
key sounds like that interval in another. 

Four of the eight intervals can exist 
in one of four forms. If the upper note 
of the interval lies within the major 
scale of the lower or root note, the in- 
terval may be classified as "major." If 
the upper note is lowered a half step, 
however, the interval then becomes 
"minor." For example, ce is a major 
third and c-e? a minor third. This rule 


applies to four intervals; the second, 
third, sixth, and seventh. The remaining 
intervals — fourth, fifth, and octave — 
are classified as "perfect" — they do not 
exist in major and minor forms, The 
following program plays all of the inter- 
vals above in the C Major scale, i.e, 
with middle c as the lower or root note. 


100 REM 
110 REM 
120 REM 
120 REM 
140 REM 
150 REM 
160 FEM 
170 DIM NS(11),F C11) 
180 FOR I=0 TO 11 
190 READ NSID.F(GD 
200 CALL CLEAR 
210 PRINT " 
220 FOR J=1 TO 2 

CALL SOUND (1000, 262, 0) 

CALL SOUND(1OOO,F (І) 0) 

CALL SOUND ( O, 110,20) 

NEXT J 

NEXT I 

DATA UNISON, 262, MAJOR SECOND, 

294,MINOR SECOND, 277, MAJOR 

THIRD, 230,MINOR THIRD, 311, 

FOURTH, 349, FIFTH, 292 

DATA MAJOR SIXTH, 440 

MINOR SIXTH, 415, МАЈО VENTH, 

294, MINOR SEVENTH, 466, OCTAVE, 


X*fikkirrtt 

* MUSIC F 4 

XXIkifXtfiiY 

99'ER VERSION 7.81.1 

HY NORMA AND JOHN CLULCW 


"SNS (1) 


zoo 


The remaining two categories of in- 
tervals "augmented" and “diminished” 
are not used in the TI Music Skills 
Trainer and so will not be discussed in 
detail. They are formed as follows: 
augmented-a major or perfect interval 
is made onc half step larger; diminished 
-a minor or perfect interval is made one 
half step smaller. 

Finally, intervals may be classified 
according to which note is played first. 
If the lower note is played first, the in- 
terval is said to be ascending (c-e), and 
if the upper note is played first, it is 
descending (e-c). 


Chords 


A chord is several notes played simul- 

taneously, usually three or more, When 
a chord consists of three tones it is 
called a triad. Given any major scale, 
four triads can be formed from the start- 
ing note (root) of that scale: major, 
minor, augmented, and diminished. A 
major triad consists of the root, the 
third, and the fifth. For example, in a C 
major scale, starting with the root c, the 
third is c-e, and the fifth is c-g. The 
major chord is then c-e-g. Similarly, in 
the EP major scale, given the root eb, 
the third g, and the fifth bP , the major 
chord is eD-g-b?. 
A major chord is changed to a minor 
chord by lowering the second note (i.e., 
the third) one half step. For example, 
the C major chord c-e-g becomes the c 
minor chord c-e?-g and the е?тајог 
chord becomes the e?minor chord 
e?.gh.pP, 


A minor chord can further be changed 
to a diminished chord by lowering the 
third note (i.e., the fifth) one half step. 
For example, the c minor chord c-eP-g 
becomes the c diminished chord c-e?-g> 
and the eP minor chord cP-gP- pb becomes 
the ePdiminished chord e?-gP-p9P. (bb? 
is called b double flat and is the same 
note as a.) 

The augmented chord is formed by 
raising the third note of the major chord 
(i.e. the fifth) one half step. For example, 
the c major chord c-e-g becomes the c 
augmented chord c-e-g and the e? major 
chord becomes the е? augmented chord 
e?-g-b. 

As in the case of scales and intervals, 
chords with the same name sound alike. 
All major chords sound alike; all minor 
chords sound alike, etc. 

If the lowest note of the chord is the 
root, the chord is said to be in root posi- 
tion. АП four types of triads (chords) 
can be played in inverted form, however. 
For example, the C major chord c-e-g 
may be altered from its root position 
form to one of the following inversions 
by making the lowest note either the 
third or the fifth: e-g-c' and g-c^e". Simi- 
larly, the inverted forms for the e?minor, 
which in root position is written or 
played е?-р2-Ь?, are g?-bD-0P” and b> 
seo gir 

Chords of more than three notes can 
be formed, and there are several differ- 
ent varieties, One of them, the seventh, 
is used in the Music Skills Trainer and so 
will be described here. The seventh 
chord contains the root, third, fifth, and 
the seventh lowered by a half step. For 
example, a seventh in the key of Cmajor 
is c-e-g and b lowered by a half step or 
bb. Similarly, in the key of e? the sev- 
enth chord is ер -g-b?-dP (d lowered by 
a half step). 

While the seventh chord contains 
four notes, the TI-99/4 can play only 
three notes simultaneously; therefore, 
following traditional rules of harmony 
the fifth of the chord (third note) may 
be omitted to give a seventh in the form 
c-e-bP, As in the case of triads, the sev- 
enth may appear in inverted forms. 

The following program will allow 
you to compare and contrast major, 
minor, augmented, diminished, and sev- 
enth chords in their root and invertec 
forms, 


100 REM Жжжж EERE 
110 REM * MUSIC 4 я 
120 REM  X3*Xtzsátkuy 
130 REM  99^ER VERSION 7.81.1 
140 REM BY NORMA AND JOHN CLULOW 
150 REM 
160 REM 
170 REM DISPLAY MENU 
180 CALL CLEAR 
190 PRINT TAB(10) 1 MAJOR"::TAR 
(10):"2 MINOR" TABIO); 
"> DIMINISHED": : TAR (10) 3 
“4 AUGMENTED” 
200 PRINT TAB(10):"S SEVENTH 


:::TAR(8); "YOUR CHOICE?" 
REM ACCEPT CHOICE 


O CALL KEY(O,KEY. STATUS) 

IF KEY<49 THEN 210 

O IF KEY>S3 THE 

о CALL HCHAR (23 
© KEY=KEY-48 

70 REM ASSIGN FREQUENCIES 
O Fi1-262 

о ON KEY GOTO 300,350, 360, 390,420 
E 


a FR 
бот: 
F 


O GOTO 440 

F2=311 

o F3-370 

о GOTO 440 

o F2=330 

O F3-415 

о GOTO 440 

F2=330 

F3=466 

O REM PLAY CHORD 

O CALL SOUND(1000,F1,0) 

O CALL SOUND(1000,F2,0) 

CALL SOUND (1000, F3, 0) 

о CALL SOUND (1000, 440,30) 

CALL SOUND (1000,F1,0,F2,0,F2,0) 
REM INVERSIONS. 

PRINT :ТАВ (6) ; "INVERSIONS 
2^ 

CALL KEY(O,KEY,STATUS? 

IF KEY=78 THEN 170 

IF КЕҮ< >89 THEN 520 

O CALL НСНАК (23, 26. KEY) 

REM PLAY INVERSIONS 
CALL SOUND (1000,F2,0,F3,0, 
21F1.0) 

О CALL SOUND(1900, 440,30) 
CALL SOUND(1OOO.F7,0,2£F1,0, 
2F2,0) 

O CALL SOUND (1000, 440,30) 

o GOTO 170 


(Y/N) 


TI Music Skills Trainer 


The Music Skills Trainer from Texas 
Instruments is a program written in 
TI BASIC (it will also run in Expended 
BASIC without modification). The pro- 
gram is available on cassette or diskette. 

Four types of drill are provided; Pitch 
Guess, Interval Recognition, Chord Rec- 
ognition, and Phrase Recall. The user 
selects the type of drill desired from a 
menu. 


Pitch Guess 


In this drill, you try to identify the 
pitch of a single note. While it might 
seem at first that this would require per- 
fect pitch, you will find after several ex- 
amples that you have “tuned in" and 
are able to identify pitches by relating 
each new one to the one that has pre- 
ceeded. The difficulty of this exercise 
can be controlled by specifying the start- 
ing note and range size in half steps (up 
to two octaves). In addition, you can 
choose to have notes selected from either 
the C major diatonic or chromatic scale 
by answering no or yes to the option of. 
including sharps and flats. TI has in- 
cluded yet another means of increasing 
the level of difficulty-''Random Music." 
If chosen, random music is played be- 
tween examples, making it more diffi- 
cult to remember the preceeding note. 
The program provides up to ten ex- 


Sunshine Software 


• e CRIBBAGE ee 


Play against the TI-99/4, Computer plays 
the able opponent. 


ee QUBIQ ee 


A unique mind-boggling puzzle. Full 
Color & Graphics, 


• е SPIRAL-GRAPHICS ee 
Creates thousands of amazingly beautiful 
patterns in High Resolution. You specify 
the pattern, the computer does the rest. 


+e OBSTACLE COURSE •• 


Can you make it through this game of 
logic? Deduction tells you where the 
obstacles are. 
$8.95 each; 4 for $24.95 
Cassette only; TI BASIC 
Complete documentation included 


Sunshine Software 
520 Milton Lane 
Hoffman Estates, IL 60194 
Tel (312)-885-2862 


Cassette for TI-99/4 
$14.95 


Linear Aesthetic Systems 
POB 23 
West Cornwall, CT 06796 


YOU ARE NOT ALONE 
OUT THERE 


FLORIDA 99/4 USER'S GROUP 
PROVIDES... 


An indispensable forum for 
exchanging ideas. 
in- 


Programs and technical 


formation. 


A bi-monthly newsletter to 
keep you up to date on what 
other group members are 
doing. 


*FLORIDA 99/4 USER'S GROUP* 
Vince Johnson 
10900 SW 196th ST. #307 
Miami, Florida 33157 
(305) 251-5078 
SOURCE Mail TCU650 
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TEXAS INSTRUMENTS 
TI-99/4A 
HOME COMPUTER 


Whether you're already quite knowledgeable 
about computers or want to learn how to get 
started, the TI-99/4A is for you. By simply 
snapping in one of the many Solid State 
Software Command Modules either you or 
ivst about anybody in your family can use the 

1-99/4A because step-by-step instructions 
are displayed right on the screen. 


The TI-99/4A gives you an unmatched com- 
bination of features including: 

€ Powerful TI-BASIC 

€ Up to 72K total memory capacity 

€ NEW typewriter keyboard 


Retail price is $550. Your special BACH 
Company price is a low $389.00. To accom- 
pany the ГӨ ЗА we offer below just some of 
the accessories available. 


$111.95 
167.95 
167-95 
223.95 
373.95 
298.98 
298.95 
37.95 
348.95 
26.95 


Solid State Speech Synthesizer 
Telephone Coupler (Modem) 
RS-232 Accessories Interface 
Disk Drive Controller 

Disk Memory Drive 

Soid State Printer 

Memory Expansion (32K RAM) 
R.F. Modulator (TV Adapter) 

10” Color Monitor 

Wired Remote Controllers (Pair) 
Dual Cassette Cable 11.95 
Monitor Cable 14.95 
Thermal Paper (2 Pack) 7.95 


Personal Real Estate 

(Application Program) 52.95 
Mailing List ( a eri Program) 52.95 
Bridge Bidding (Application Program) 25.95 
The Attack Game (Application Program) 29.95 


ORDER TOLL FREE 
800-227-8292 


California Residents call 415-494-1995. Use 
VISA, Mastercharge, check or money order. 
Indicate card number and expiration date. 
Order product #60. Add $4.50 for shipping. 


o 


The BACH Company ү] 
PO. Box 51178 
Palo Alto, СА 94303 
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amples and keeps score: 
each correct answer. 

We recommend that when first using 
this drill, you use C as the starting note, 
a range size of 13 (oneoctave), no sharps 
and flats, and no random music. After a 


10 points for 


! little practice, it shouldn't be that diffi- 


cult to identify notes. 


Interval Recognition 


This drill helps to develop your abil- 


| ity to recognize intervals. There are three 


levels, each of which adds more intervals 
to those included in the drill. For in- 
stance, if you choose Level 1, the exam- 
ples are composed of major thirds, 
fourths, and fifths. Level 2 adds half 
steps, whole steps, and minor thirds, 
and Level 3 sixths, sevenths, and octaves. 
You can choose to have the intervals 
presented in ascending or descending 
order, For an added degree of difficulty, 
you can choose to have the lower note 
be random; it is otherwise C each time. 
You can also choose to have random 
music play between exercises. Up to ten 
examples are provided, and you receive 
10 points for each correct answer. 


Chord Recognition 


This drill provides practice in recog- 
nizing chords. Again there are three 
levels with Level 1 consisting of major 
and minor chords, Level 2 adding sev- 
enth and diminished, and Level 3 adding 
augmented. If you choose the "Random 
Bass” option, the root can be any note; 
otherwise it is a C. If you choose the 
“Random Inversions" option, inverted 
chords will be played, otherwise, a 
root-position chord is always played. If 
you choose the “Chord Only” option, 
the threc notes will be played simultane- 
ously. If you don't choose it, the notes 


comprising the chord are first played in- 
dividually and then together. As in the 
previous drills, you can select the “Кап- 
dom Music" option. You receive 10 
points for each of up to 10 problems. 


Phrase Recall 


This drill develops your ability to re- 
member a sequence of up to nine ran- 
dom notes. A blank keyboard overlay, 
provided with the program, is used to 
label the keys with their corresponding 
pitch, covering two octaves much like 
the layout of a piano keyboard. You 
can select the starting note and range 
size, and determine whether sharps and 
flats are to be included in the examples. 
You can also specify the number of 
notes which constitute the phrase (1-9). 
After a phrase is played, you respond by 
entering notes from the keyboard as if it 
were a piano. Notes are heard and dis- 
played as you play them, and if you 
make a mistake, you can use SHIFT T 
to start over again without penalty. 
When you have entered the notes that 
you think correctly represent the phrase, 
you press ENTER. The correct notes are 
then displayed below your response, 
and you are awarded points based on 
the number of correct notes and the 
number of notes included in the phrase. 
Up to ten examples are given with a pos- 
sible total score of up to 100 points. As 
in the previous drills, the *Random Mu- 
sic" option can be chosen to make this 
drill even more difficult. 

We feel that TI's Music Skills Trainer 
will be useful for the experienced musi- 
cian who wants to keep his auditory 
skills sharp. We would also highly recom- 
mend it for the novice who is interested 
in further developing his knowledge and 
abilities in those areas of music theory 
covered by the program. 09 


The Charter Issue of 


ар. 


is Still Available... 


. . . but quantities 
are limited 


Ц 
Only $3.95 pospaa $O ORDER TODAY! 


Use the bind-in card in the back of the magazine for your convenience in ordering. 
SAMPLE CONTENTS : *How To Write Your Own Programs 9An External Keyboard Epson MX-80 & Printer Graphics 
* Space & Combat Games in TI BASIC ® Text-to-Speech © TMS9900 Machine & Assembly Language ® Planning & Forecast- 
ing in BASIC *UCSD Pascal & Third-Party Development Systems Power Line Problems ®| ОСО & Lamplighter Music 
Text Editor *TM990/189 University Module Homework Helper: Fractions * Computer Chess and much, much more... 


Coming in the September/October Issue ... 


ө Printing A Personal Calendar 

€ Business Software Reviews 

€ Interfacing with Teletypes 

e Business Forms Generator 

e Bit-Plot Printer Graphics 

ө Personal Record Keeping 
Command Module Applications 

e Educational Software Reviews 

e Adding Your Own Disk Drives 

* Computer Choreography 

ө Speaking About Speech: 
Tips on Synthesizer Programming 


yvPlus All Our Regular Features 
And Many Additional Surprises... 
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SL 

Dear Sir: 

1 doubt this letter will ever reach your eyes, 
but if it does | just would like to extend to 
you my deepest appreciation for giving me 
the privilege of receiving, in my opinion, 
one of the best written, most organized, and 
thoroughly fascinating magazines intro- 
duced on the market. | was very impressed 
with all the articles and was especially inter- 
ested in the one on the “Lamplighter” pro- 
ject. | also am thinking of purchasing the 
book “Mindstorms.” 


| am very excited about many of the things 
[in the articles] and ! am looking forward 
to the July/August issue of 99'er Magazine. 


Bill Finley 
Raleigh, NC 


Thanks for the kind words, Bill. Yours are 
typical of the many letters we received from 
fellow 99'ers. It's a pleasure to be serving 
you all. 


Dear Sir: 

In the article about Extended BASIC, CALL 
SAY is referred to as a TI BASIC command. 
Please inform me what this is since it doesn't 
appear in my user's guide. 


Also, you should tell people that when they 
send away for software/hardware they read 
about in 99'er Magazine, they should tell 
the advertiser that they saw their ad, That 
will help you keep advertisers and gain new 
ones. 

J. Douglas Wellington 


Jersey City, NJ 


CALL SAY as a TI BASIC command is ex- 
plained in the instruction booklet that comes 
with TI's Speech Editor Command Module 
as well as the documentation for Extended 
BASIC. By the way, an excellent idea about 
mentioning the 99'er Magazine to adverti- 
sers, Douglas. We certainly hope all 99'ers 
take your advice, 


GENERAL NOTES: 

In the last issue, we featured an article on 
adding an external keyboard to the Т1-99/4. 
This technique did require slight modifica- 
tions to the console, Texas Instruments has 
informed us that any tampering with their 
hardware will void the warranty. We just 


& 


C— 
—T0 THE 


~ LETTERS—!¥ THE 


Dear Sir: 
| have just recently purchased Extended 
BASIC. The features that it offers are excel- 
lent. But 1 have been wondering for some 
time how to incorporate high resolution 
plotting into my scientific graphs. This fea- 
ture would seem to me to be the first and 
most obvious extension to TI BASIC. How- 
ever, | can't seem to find it. The SPRITE 
seems to be the only character to address 
the 256 by 192 high resolution dots, It is 
not immediately obvious to me whether this 
can be done as the sprites erase preceding 
sprites unless given a number, and 28 of 
them certainly cannot define a graph. TI's 
graphing package is of no help since it is 
too specific, The statistical! package gives the 
type of graphing | would like but its method 
is a secret. Can you help? 
Priscilla Walling 
Darien, IL 


An excellent question, Priscilla... and very 
timely as well. Watch for help with this in 
our next issue. 


Dear Sir: 

k is always a source of irritation for me to 
have to physically list the contents of each 
diskette in order to locate and then run a 
program, So | thought it would be neat if | 
could inciude a “LOAD” program with each 
diskette. This way, atl | had to do was insert 
the diskette, crank up Extended Basic and 
select a program to run, 


The only problem with this approach is that 
you must tailor each LOAD according to 
the contents of that particular diskette, 


Then the idea came to me—A “General Pur- 
pose" LOAD! One that will scan the diskette 
record О, pick out the programs, construct a 
"menu" and let me seiect the program | 
wish to run. 


A great idea, right? The program to do this 
is listed on the enclosed page. It works exact- 
ly as envisioned, except for one small catch 
—line 34. Line 34 does not work at all. | 
tried every possible combination other than 
RUN "DSK!.PROGNAME" and (as the 


want all our readers to be aware of this. 99’er 
Magazine will continue to publish articles of 
this type for those readers who have the 
technical background, experience, and desire 
to expand the performance of their own 
equipment—Ed, 


book says) this is the only way you can load 
and go. 


1 would have no quarrel with this were it 
not for the OPEN command (see line 12) 
and page 138 of the Extended BASIC Man- 
ual. Even though the format of both the 
OPEN and RUN and INPUT and PRINT are 
similar, T! has allowed the substitution of 
literals for device-filename in ali but the 
RUN command. This is not only inconsistent 
(not the only inconsistency, however, as 
shown by the various forms of the DIS- 
PLAY USING, for example) but a tragedy 
to limit such a powerful command. 


Oh well, so much for my good idea! 


Charles Ehninger 
Fort Worth, TX 


Are there any readers out there in 99'er-land 
with an idea on how to make Charles’ "Gen- 
eral Purpose Load” a reality? 

1 REM Hee Hee 

2 REM + GENERAL PURPOSE + 

3 REM + PROGRAM LOADER + 

4 REM + BY C. H.EHNINGER + 

5 REM EHEHEHEH 

& OPTION BASE 1 

7 DIM PGS(20) 

8 IMAGE Н 

9 CALL CLEAR В 

10 DISPLAY AT(12,4)ERASE АШ: “DISK? (1-3): 1"; 

11 ACCEPT AT(12, 13) STTEC-1) VALIDATE ("123"): D$ 

12 (PEN #1: "&D$V*, ". INPUT RELATIVE, INTERNAL 

13 INPUT PENSAM A 

14 DISPLAY AT(1,8)ERASE ALL: OSK"LDSL" - "INS; 

15 120 

16 FOR X21 TO 20 

17 1#1+1 

18 IF 13127 THEN 36 

19 INPUT PA BB. 

20 IF LEN(P$)=0 THEN 26 

21 IF ABS{A}O5 THEN 19 

22 DISPLAY AT( X42, 10): USING 8:0: 

23 DISPLAY AT(X#2, 14): P85 

24 ?6$(1)-P$ 

25 NEXT Y 

26 DISPLAY AT(X#2) 10): USING 321: 

27 DISPLAY AT(X+2, 14): "TERMINATE": 

28 DISPLAY AT(X+3, 18) t “CHOICE? 1*5 

29 ACCEPT ATIX+3, 2228 T 2EC-Z) VALIDATE LDIGIT): K 

20 IF KzX THEN 25 

3b IF RCL OR (020 THEN 23 

32 IF LENIPGS(K) 20 THEN 28 

75 CLOSE М 

24 RIN "DSK* NDS& "X908 (C) 

35 CALL CLEAR 

3 END 
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FAST anı EASY RETRIEVAL 
OF THE DISKETTE 
YOU NEED... 


Mini-Flex Partition Design 


IMPROVED NO-WARP 
EASY ACCESS DESIGN 


ГА! н! 
CASE OR DISK BOX 
The MINI-FLEX is styled with iow sides and snag-proot 
edges... making removal and replacement of diskettes 
easy and safe. 


The design of the MINI-FLEX case is a unique contribution 

to diskette safety. Many owners keep their disks in the carton 
they came in. Deprived of proper support, diskettes get into 

а slurnped-over posture. But, the MINI-FLEX case is built 

with inclined sections molded into its base. The inclines keep 
diskettes standing upright, assuring no-sag, no-warp storage. 
There's no need to pack diskettes tightly. The MINI-FLEX case 
construction eliminates the need for file drawer type follower 
blocks, which can actually cause compression damage. 


Warped or otherwise distorted disks result in data loss, and 
can even cause costly machine damage and "down" time. The 
inclined sections in the MINI-FLEX bottom prevent ali that 


The MINI-FLEX is a stylish appointment 
in your office environment. 


Its' color is impregnated... it wipes clean with 
just a damp cloth. The case's rounded corners won't snag 
clothing or mar furniture. 


The MINI-FLEX is compact and convenient. It occupies less 
desktop space than a piece of typing paper, making for more 
efficient use of any work station. And since the top nests with 
the bottom, you don't need extra space to put it down when 
you take it off. 


An office environment poses some of the worst dangers 
to the good health of your diskettes. 

Dust, dirt, and smoke are in the air. 

Heat and magnetic interference generated by 

office machines create more hazards. They can destroy 
valuable information stored on a disk's magnetic recording 
material—a risk your diskettes run between the time you 
store data and the time you want it back. 


There are other possible problems. Unregulated vertical 
storage can lead to sagging, slumping or warping of diskettes. 
Horizontal stacking can cause compression damage. Bending 
or creasing a disk while sorting through a jam-packed box can 
result in data loss. 


So, you can see, there are a lot of factors that can lead to 
losing valuable information. . information that will always cost 
you time and money to replace. 


MINI-FLEX doesn't conduct heat or electromagnetism like 
metal cases do. 


Spacious enough to store up to 50 mini-diskettes in their 
protective envelopes as recommended by all media 
manufacturers, yet small enough to conserve work space. 
The base nests in the lid for a compact configuration in use. 


There's a modern modular concept behind the MINI-FLEX 
design. It's adaptable to any quantity of information. . .compact 
enough for smaller storage requirements. . flexible enough for 
dividing even the largest libraries into convenient units, the 
way separate drawers do in a file cabinet. 


Improper handling of diskettes can cause data loss. With 
the MINI-FLEX, handling is cut down to a minimum. 


In storage, your diskettes are separated by heavy-duty 
partitions, they won't wear out. And they can be moved—or 
removed—as your file grows. When an operator searches for 
a specific disk, the partitions open naturally into V-shaped 
compartments. An operator can view the entire front of each 
disk's envelope without having to remove the disk from the 
case—or bend it for visibility. That makes for fast accurate 
search and instant identification with no danger of bending 
or creasing valuable disks. 


. . While Guarding Against Data 
Dropout Caused By Improper 
Storage and Handling. 


\ 
i 


ey 4 
248cm | 


Tu^ iw 
| } = т 4 
Specifications: Capacity: 50 Diskettes with Envelopes E—M — — adios 
Shipping Weight: 3 Lbs./1.35 Kg. Partitions:3 Color: Smoke and Sand 1 Package MINI-FLEX Guides 


MINI-FLEX DISKETTE FILE 
List Price: $29.95 
X Special Price $24.95 


Add $2.50 shipping and handling. Use the bind-in card in the 
back of the magazine for your convenience in ordering. Tele- 
phone orders accepted if charged to credit cards. 


TM. 


INNOVATIVE PRODUCTS 
FOR TMS9900-BASED 
PERSONAL COMPUTING 
P.O. Box 5537 
Eugene, Oregon 97405 
Tel. (503) 485-8796 


| FINALL Yn 


Single-Sheet & Roll-Feed 
For Your 


EPSON 
мх-во 
Printer 


№ Increased Printer Versatility 


YA. xb Cheaper Paper Supplies 


m x - d f 
nc - "A x Less Paper Wastage 


Ж 
J № Large Time Savings 


№ Quickly Pays For Itself 


Now You Can: 


[у] Fill In Purchase Orders, Invoices, Statements and Other [yl Use Your Own Letterheads for Business Correspondence 
Business Forms One-At-A-Time, As Needed—Without or Colored Paper for Graphics Designs, Posters, and 
Having to Wrestle Cartons of Pin-Feed Supplies in & Out Direct Mail Flyers. 
of Your Printer. 


[Y] Use Cheap Roll Paper for Most of Your Printing Needs 
mi Install It Yourself In Less Than 45 Minutes With Only A and Forget About Printing On or Over the Perforations. 
Small Screwdriver & Penknife. 


A Cost-Effective Upgrade That 
EPSON MX-80 Owners 
Can't Afford To Be Without! 


Special Price: 
Each Kit Comes Complete With: ONLY $49.95 


*2 Acrylic Drive Wheels (With Rubber Friction Rings) Machined 

to Exacting Tolerances (* .0005, - 0.0 inches) for a Snug Fit Add $2.00 for Shipping & Handling. Use the 
bind-in card in the back of the Magazine for 
your convenience in ordering. Telephone orders 
accepted if charged to credit cards. 


© 1 Weighted Pinch Roller Assembly 
*1 Roll Paper Holder 


тм. 
INNOVATIVE PRODUCTS 
FOR TMS9900-BASED 
PERSONAL COMPUTING 


P.O. Box 5537 
Eugene, Oregon 97405 
Tel. (503) 485-8796 


